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A la computadora personal 

Talent 

nada le es imposible 


UTIL 

Su poderoso sistema operativo MSX 
permite el acceso a todo tipo de 
procesamiento de datos: 

• Planillas de calculo. 

• Procesadores de palabra. 

• Graficos de negocios. 

• Bases de datos (d Base II, etc.) 

• Contabilidad general, sueldos. y 
jornales, costos. etc., desarrollados 
bajo CP/M en Basic. Coboi. Pascal o C. 

Con la posibilidad de conexion a linea 
telefonica permite la transferencia y 
consulta de datos entre computadoras 
personales, profesionales o bancos de 
datos. 

La grabacion de archivos es en formato 
MS-DOS. haciendola compatible con las 
computadoras profesionales. 

DIDACTICA 

Dispone de tres lenguajes para la 
ensenanza de computation: LOGO como 
lenguaje de induccion para los mas 
chicos. Lenguaje de Programacion en 
Castellano, para todos los qde quieran 
aprender a programar sin conocimientos 
previos. Y Basic MSX como lenguaje 


profesional Mas una amplia variedad de 
perifericos como el Mouse. Lapiz Optico. 
Tableta gratica. Track-ball. etc. 

DIVERTIDA 

La mas genial para Video-Juegos. Por la 
amplisima biblioteca de programas 
-todos nuevos- de la norma MSX en el 
mundo. Y ademas. el Basic MSX permite 
al usuario generar sus propios juegos 
con un manejo tan simple, como solo 
TALENT MSX puede ofrecer. 

CARACTERISTICAS TECNICAS 

• Memoria principal 64 KBampliable 
hasta 576 KB. . 

• Memoria de video: 16 KB RAM. 

• ROMincorporadade32KB 
con el MSX-Basic de Microsoft. 

• Graficos completes. hasta 32 sprites 
y 16 colores simultaneos. 

• Generador de sonido de 3 voces 
y 8 octavas. 

• Conexion para cualquier grabador. 

• Interfaz para salida impresora paralela. 

• Conectores para cartuchos 
y expansiones. 

• Fuente para 220 V 

y modulador PAL-N incorporado. 


Porque gracias a la norma internacional MSX, la 
TALENT MSX trasciende sus propios limites. 

Hasta ahora, cuando usted compraba una 
computadora personal de cualquier marca, quedaba 
automaticamente desconectado del resto del mundo 
de la computacion. Porque los distintos equipos y 
sistemas no eran compatibles entre si. 

Hasta que dos grandes empresas de informatica, 
la Microsoft Corp. de EE.UU. y la ASCII del Japon se 
pusieron de acuerdo para crear una norma standard: 
la MSX. Que se expandio tambien rapidamente en 
Europa. Y que hoy TALENT presenta por primera vez 
en la Argentina. 

Mientras que la mayoria de las computadoras de su tipo 
que se ofrecen en el mercado nacional, han sido 
discontinuadas por obsoletas en sus lugares de origen, 
TALENT MSX tiene casi ilimitadas posibilidades 
de desarrollo. Porque la norma MSX es en todo el 
mundo inteligencia en crecimiento. 

La TALENT MSX pone a su disposicion un mundo de 
software para elegir. Y con la incorporacion de todos 
sus perifericos llega a ser una autentica computadora 
profesional. 


MSX «s marca reglstrada de MICROSOFT CORPORATION 


DISTRIBUIDORES AUTORIZADOS: CAPITAL FEDERAL: AMATRIX, Bolivar 1 73 - ARGECINT, Av. de Mayo 1402 - BAIDAT COMPUTACION , Juramento 2349 - COMPUPRANDO, Av. de 
Mayo 965 - COMPUSHOP, Cordoba 1464 - COMPUTIQUE, Cordoba 1111, E. P. - COMPUTRONIC, Viamonte 2096 - CP67 CLUB, Florida 683, L. 18 - DALTON COMPUTACION, 
Cabildo 2283 - ELAB, Cabildo 730 - MICROSTAR, Callao 462 - Q.S.P., Bartolome Mitre 864 - SERVICIOS EN INFORMATICA, Parana 164 - DISTRIBUIDORA CONCALES, Tucuman 
1458 - MICROMATICA, Av. Pueyrredon 1135 - ACASSUSO: MICROSTAR ACASSUSO, Eduardo Costa 892 - AVELLANEDA: ARGOS, Av. Mitre 1755 - BOULOGNE: COMPUTIQUE 
CARREFOUR, Bernardo de Irigoyen 2647 - CASTELAR: HOT BIT COMPUTACION, Carlos Casares 997 - LANUS: COMPUTACION LANUS, Caaguazu 2186 - LOMAS DE ZAMORA: 
ARGESIS COMPUTACION, Av. Meeks 269 - MARTINEZ: VIDEO BYTE, Hipolito Yrigoyen 32 - RAMOS MEJIA: MANIAC COMPUTACION, Rivadavia 13734 - SAN ISIDRO: FERNANDO 
CORATELLA, Cosme Beccar 249 - VICENTE LOPEZ: SERVICIOS EN INFORMATICA, Av. del Libertador 882 - BAHIA BLANCA: SERCOM, Donado 327 - SUMASUR, Alsina 236 - LA 
PLATA: CADEMA, Calle 7 N° 1 240 - CERO-UNO INFORMATICA, Calle 48 N° 529 - MAR DEL PLATA: FAST, Catamarca 1 755 - NECOCHEA: CAFAL, Calle 57 N° 2920 - SERCOM , Calle 57 
N° 2216 - TRENQUE LAUQUEN: COMPUQUEN, Villegas 231 - CORDOBA: AUTODATA, Pasaje Santa Catalina 27 -JEQSIE^ Janta Rosa 7.15 - ROSARIO: 2001 COMPUTACION, Santa 
Fe 1468 - MINICOMP, Maipu 862 - SISOR, Urquiza 1062 - SANTA FE: ARGECINT, P. San Martin 2433, L. 36 -SIS0R, RivadavTa 2553- INFORMATICA, San Geronimo 2721/25 - 
VILLA MARIA: JUAN CARLOS TRENTO, 9 de Julio 80 - MENDOZA: INTERFACE, Sarmiento 98 - BIT & BYTE, 9 de Julio 1030 - C0M0D0R0 RIVADAVIA: COMPUSER, 25 de Mayo 827 - 
GENERAL ROCA: DISTRIBUIDORA VECCHI, 25 de Mayo 762 - LA PAMPA: MARINELLI, Pellegrini 155 - NEUQUEN: MEGA, Perito Moreno 383 - EDISA, Roca esq. Fotheringham - RIO 
GRANDE: INFORMATICA M & B, Perito Moreno 290 - SAN CARLOS DE BARILOCHE: L. ROBLEDO & ASOCIADOS, Elfein 13, Piso 1° - TRELEW: SISTEN0VA, Sarmiento 456 - 
PARANA: MARIO GARCIA, Laprida y Santa Fe - POSADAS: CENTRO DE COMPUTOS ELDORADO, Colon 2429 - RESISTENCIA: FRANCO SANTI, Carlos Pellegrini 761 - SAN 
SALVADOR DE JUJUY: DELTA COMPUTACION, Salta 1108 - SALTA: DELTA COMPUTACION, Caseros 873 - SAN MIGUEL DE TUCUMAN: LEXICON, 9 de Julio 85 - ELECTRONICA 
VALLE, Crisostomo Alvarez 264. 
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DATOS 


comprension nos servira 
cuando necesitemos dise- 
nar alguna letra o stmbdlo 
en particular. (P6g. 7) 


RINCON DEL 
USUARIO 


POSEBILIDA- 
DES DEL PRO- 
CESADOR DE 
TEXTOS 


Les mostramos como 
podemos escribir nuestros 



Al principio no pudimos 
esperar para comenzar a 
utilizar nuestro sistema de 
base de datos... y ahora, 
con el disquete casi lleno, 
nos damos cuenta de que 
el formato armado con 
tanto trabajo sencillamen- 
te no sirve... Trataremos 
de evitar esta clase de 
problemas aclarando algu- 
nos puntos importantes en 
el uso de esta importante 
herramienta. (P£g. 5) 


Se presenta un utilitario 
que permite leer archivos 
generados por el dBASE II 
desde el MSX BASIC y 
generar un programita de 
ejemplo que arma los 
campos del archivo. (Pag. 
20 ) 


programas en el MSX- 
WRITE. (Pag. 30) 


PROGRAMAS 


DISENO DE 
CARACTERES 


CORREO 
ELECTRONI- 
CO GRATUITO 


Explicamos como enviar 
un archivo previamente 


I TflILft )E USEwO ?£~ CftBftCTERES I 


TA1LA 



VPEEK<2848+8*ASCCA*) + 1 


r 

32 


88198888 

) 

88 


81818888 

i 

136 


18881888 


136 


10081800 

► 

248 


11111880 


136 


18881800 


136 


18881888 


8 


88008088 


L6383 


4895^ 


(IOTA: La lonyiUd de la VRflf 
16 Kbytes t 1824 = 163 
se re-fiere al eodelo 1 
de las TftLEKT USX 



Sprites (Pag. 10) - El 
juego de los detectives 
(Pag. 14) 


SECCIONES 

FIJAS 


Mostramos como una 
parte de la memoria alma- 
cena los caracteres. Su 


almacenado en ACAmati- 
ca utilizando un modem 
Talent TMX-510. (Pag. 24) 


Noticias MSX (Pag. 4) - 
Soft al dia (Pag. 32) - Bu- 
zon (P&g. 34) 


JJ 










:W: 


mm 




JOYSTICKS 
RAROS 

Laempresa I.S.F.P. acabade 
lanzar al mercado local dos 
nuevos joysticks qua sirven 
para todas las computado- 
ras. 

El TOUCH-JOY es un joys- 
tick electronico, que funciona 
al tacto, y por lo tanto sin des- 
gaste.Su funcionamiento es 
sumamente sencillo, para “ir” 
en una direccibn determina- 
da se debe tocar (no apretar) 
el contacto correspondiente 


a esa direccibn. No mas re- 
sortes, palancas ni micro- 
switches que se puedan rom- 
per. 

En la parte superior del josy- 
tick, hay un LED que nos indi- 
ca que el mismo esta encen- 
dido y listo para funcionar. 

El otro joystick es el OMNI-FI- 
RE, con una innovacion que 
puede llegar a resultar muy 
divertida. Su accionamiento 
es por la voz humana. 


Ademas de ser digital, como 
el TOUCH-JOY, este joystick 
incorpora un autodisparador 
cuya velocidad de disparo se 
puede regular por medio de 
un potenciometro ubicado 
sobre la parte superior de la 
caja. 

La velocidad de disparo se in- 
dica por medio de un LED cu- 
yo parpadeo nos mostrara 
cuando el joystick da la orden 
de disparo. 

VIRUS 

Uno de los males que estan 
sufriendo los sistemas de 
computacion complejos de 
grandes empresas o institu- 
ciones pu- 
blicas son 
los virus. 

Estos son 
programas 
que se in- 
troducen en 
las grandes 
redes con el 
fin de des- 
truir o alte- 
rar informa- 
cion, por lo general secreta o 
reservada. 

Los virus han sido introduci- 
dos en instituciones como 
IBM, la NASA y el Providence 
Journal-Bulletin. 

Si bien las empresas dicen 
que los virus de las computa- 
doras no son males impor- 
tantes, el peligro potencial e- 
xiste, sobre todo en los espi- 
as industriales. Existen ca- 
sos en que un espia industrial 


se infiltro en los sistemas de 
computacion de companias 
competidoras, para colocar 
programas que destruyen 
parte de la informacion alma- 
cenada o producen errores 
constantes en la facturacibn 
o descienden la calidad del 
producto que se fabrica. 

NUEVO 

CONCURSO 


El certbmen “Una computa- 
dora para mi escuela”, orga- 
nizado por el programa de 
ATC Historias de la Argen- 
tina Secreta con el auspicio 
de la revista K-64 fue un exi- 
to. Prueba 
de ello es el 
numero im- 
portante de 
concursan- 
tesque par- 
ticiparon 
con el obje- 
to de ganar 
un equipo 
completo 
de Talent 
MSX para 
su escuela. 


Ahora, debido al eco obteni- 
do, Historias... vuelve a la 
carga con un nuevo cer- 
tamen. 

Esta vez se trata de El viaje 
de Historias de la Argenti- 
na Secreta. 

Consists en una seleccion 
entre quienes hayan partici- 
pado del concurso “El Pro- 
gramador del Ano” para for- 
mar un equipo que disehara 
un juego educativo sobre la 
base de la tematica del pro- 
grama de T.V. y radio. 


DELPHI 

Los usuarios de Delphi Ar- 
gentina podran usar el corre- 
o electronico, via Mail, desde 
los Estados Unidos. Tambien 
usando Delphi USA tendran 
acceso directo a Delphi de 
nuestro pais. Si un usuario 
quisiera enviar un mensaje a 
algun otro deberb usar la op- 
cion correspondiente, dejan- 
do constancia del nombre del 
destinatario. 


DELTA * tron 

taller de computacion 

Director: 

Gustavo O. Detfino 

651-4027 



CURSOS DE COMPUTACION 
para adultos docentes 
adolescentes y ninos 
BASIC-LOGO-UTILITARIOS 


CURSOS DE: 

Introduce ion a la 

Informatica 
Programacion BASIC 
Planillas de Calculo 
Procesadorde Textos 
Bases de Datos 
Talleres LOGO para 
ninos y docentes 
Servicio Integral de 
Educacion Informatica 
a Escuelas Primarias 
Y Secundarias 
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COMO SE USA 
UN SISTEMA DE 
BASE DE DATOS 

Al principio no pudimos esperar para co- 
menzar a utilizar nuestro sistema de ba- 
se de datos.., y ahora , con el disquete ca- 
st lleno, nos damos cuenta de que el for - 
mato armado con tanto trabajo sencilla- 
mente no sirve ... Trataremos de evitar es- 
ta clase de problemas aclarando algu- 
nos puntos importantes en el uso de esta 
importante Herramienta. 


i somos usuarios que utiliza- 
mos la microcomputadora co- 
mo una ayuda en el manejo de 
las finanzas hogarenas, clubs o peque- 
fios negocios (lo que generalmente de- 
nominamos “uso serio”) generalmente 
necesitaremos tres programas para ma- 
nejar todas las rutinarias tareas manua- 
les: un procesador de texto, una planilla 
electrbnica y un programa de almacena- 
miento y recuperacion de informacibn 
(conocidos en el circulo de computaci6n 
como un "sistema de manejo de base de 
datos”). 

Se ha escrito bastante sobre el uso apro- 
piado de los procesadores de texto y las 
planillas de calculo, mientras que los 
principiantes en bases de datos no tienen 
tanta bibliograffa. Excepto por un mfnimo 
“know how” (saber como) que viene con 
el manual del programa, el usuario de ba- 
se de datos queda librado a sus propias 
fuerzas, rodeado de terminos pocos co- 
nocidos y comandos confusos. 

Este articulo brinda una breve introduc- 
cion a las bases de datos y su jerga. Lue- 
go avanza paso a paso en el proceso de 
resolver un problema usando una tfpica 
base de datos. La informaci6n que brin- 
daremos servira para que el lector se en- 
cuentre mbs “armado” para poder decidir 
la compra de uno de estos programas. 
La informacibn contenida en este artfcu- 
lo se aplica a cualquier programa de ba- 
se de datos y a cualquier computadora 
(pero desde la optica MSX, naturalmen- 
te). 


LAS BASES DE LAS 
BASES DE DATOS... 

iQue es un programa de base de datos 
y para que puede servirnos? Una "base 


de datos” es una coleccion de informa- 
cion organizada alrededorde algun topi- 
co o tema. Tenemos muchas bases de 
datos no computadorizadas en nuestras 
vidas. Algunos ejemplos obvios son una 
agenda personal, un listado de los bienes 
de una casa para el seguro o una lista con 
las tarjetas que se deben enviar en Navi- 
dad. Un ejemplo de un producto de una 
base de datos computadorizada es la 


guia telefbnica. 

Si estamos lidiando con un volumen im- 
portante de informacibn, o si la informa- 
cion cambia con bastante frecuencia, 
nos podremos beneficiar usando un pro- 
grama de base de datos. 

Cualquieraque haya intentado mantener 
un listado de correos -"mailing list”- o 
(i,se imaginan?) Ilevar a mano la guia te- 
lefonica puede testificar sobre la necesi- 
dad de tener alguna forma facil de agre- 
gar y remover nombres, cambiar direc- 
ciones y ordenar rapidamehte la lista en 
orden alfabbtico o por codigo postal. Un 
programa de base de datos bueno nos 
permitirb hacer todo esto. 

Para ilustrar el proceso de creacibn de u- 
na base de datos tfpica, diseharemos un 
inventario hipotetico para un gran club de 
usuarios de computadoras... MSX. En 
nuestro club imaginario, compramos al- 
gunos productos en liquidaciones u obte- 
nemos programas de “dominio publico” y 
luego los prestamos a nuestros miem- 
bros. Nuestro ejemplo sblo sugiere lo que 
se puede hacer con este tipo de material, 
pero no es un tratamiento exhaustivo de 
la situacion. 

TERMINOLOGIA 

Toda area del conocimiento humano tie- 


ne sus propias palabras que nos permi- 
ten hablar especrficamente de lo que es- 
tamos haciendo. La computacibn no es la 
excepcion. Si queremos aplicar realmen- 
te lo que estamos aprendiendo en un pro- 
grama de base de datos verdadero, de- 
beremos familiarizarnos con los pocos 
terminos que describiremos a continua- 
cibn. 

Si por el trabajo llevamos registros (fi- 
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ARCHIVOS 



chas) de algun tipo, probablemente este- 
mos familiarizados con los objetos flsi- 
cos utilizados. 

La informacibn puede mantenerse en'un 
formulario qua consists de una o varias 
pbginas. El formulario deberb incluir un 
numero de preguntas, cada una seguida 
por un espacio en bianco en donde pode- 
mos escribir la respuesta. El espacio en 
bianco puede ser corto si estb previsto 
para contenter un c6digo postal. Podrfa 
ser muy largo, si estb destinado a alma- 
cenar un nombre de calle. Todos los for- 
mularios del mismo tipo pueden guardar- 
se en una carpeta de archivo. O, si real- 
mente son muchos, se pueden almace- 
nar en dos o mbs carpetas. 

De tiempo en tiempo, podriamos desear 
recorrer todos losformulariosy resumirla 
informacibn contenida en ellos. Tambibn 
podriamos desear sacar una lista de to- 
dos los formularios de cierto tipo en or- 
den alfabbtico y sumar varios tipos de in- 
formacibn, proveyendo los totales al final 
de los resumenes. Este tipo de resumen 
es el producto principal derivado de un 
ordenamiento de formularios dado, y se 
denomina "reports" (report). 

Un sistema de ficheros electrbnico es si- 
milar, pero utiliza su propio lenguaje es- 
pecial. Tenemos el “archivo” (file) como 
la unidad mbs grande de almacenamien- 
to de datos en nuestro sistema. Un archi- 
vo de datos contiene toda la informacibn 
de un individuo que la computadora pue- 
de manejar a la vez. Por lo tanto, nuestro 
club de usuarios podrla tener un archivo 
con su inventario y otro para el listado de 
tarjetas de Navidad. Si nuestro archivo 
es muy grande, podriamos tenerlos en 
dos o mbs disquetes de datos. 

Los archivos de datos estbn compuestos 
por "registros”. Si fueramos la secretaria 
de un club de usuarios grande y tuvibra- 
mos un archivo que contiene toda la in- 
formacibn de todos nuestros socios, en- 
tonces todo lo que necesitariamos saber 
sobre un socio seria un solo registro. Un 
registro es el equivalents Ibgicode un for- 
mulario. Asi como un formulario puede 
componerse de varias pbginas, algunos 
programas de bases de datos permiten 
tener informacibn de mbs de una pbgina 
de pantalla en un registro. Una pbgina de 
pantalla consists en toda la informacibn 
que se puede ver en la pantalla de la 
computadora simultbneamente. 

Y asi como un formulario estb compues- 
to de diversas preguntas y espacios en 
bianco para rellenar, un registro estb 
compuesto de “campos” (fields). Un 
campo es un item de informacibn de un 
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registro. Los campos tipicos de un regis- 
tro de un miembro pueden ser su apelli- 
do, numerotelefbnicoocbdigopostal. Un 
item de un formulario puede tener lugar 
como para una respuesta amplia o pe- 
quefta. Un campo trabaja de la misma 
forma. 

De hecho, la persona que inicializa una 
base de datos debe especificar el nume- 
ro mbximo de caracteres que puede exis- 
tir en cada campo. La unidad utilizada pa- 
ra medir la “longitud de campo” es el “ca- 
rbcter". Un carbcter es una letra, numero 
o espacio. Un numero telefbnico podria 
tener 14 caracteres de longitud: 
(0320)628-8752. 


PASOS EN EL DISENO 

Siempre debemos seguir 1 0 pasos bbsi- 
cos al crear un sistema de mantenimien- 
to de datos en una computadora. Estos 
pasos se aplican tambibn si se utiliza una 
base de datos comercial (un programa 
como el IdeaBase, el fichero de Bitgame 
o el dBASE II). Si se siguen con cuidado, 
estos pasos aseguraran que nuestro sis- 
tema nos brindarb los resultados que de- 
seamosy necesitamos. A pesarde haber 
utilizado personalmente bases de datos 
e incluso haber escrito algunos progra- 
mas de base de datos por anos, debo se- 
guirtodavia los mismos pasos de diseho 
que listamos a continuacibn. No hay nin- 
guna clase de atajos. 

1. LEAMOS EL MANUAL 

A pesar de que el primer paso deberia ser 
obvio, rara vez se cumple. 

“Lea el manual primero y realice los ejer- 
cicios religiosamente”. No hay mucho 
que preguntar cuando se estb apren- 
diendo a usar un programa nuevo, pero 
mucha gente comienza su periplo inser- 
tando el disco, encendiendo la computa- 
dora e intentando inicializar un archivo. 
Es aconsejable usar un block de apuntes 
mientras setrabajacon el manual. Tome- 
mos nota sobre cualquier limitacibn del 
programa (por ejemplo, un mbximo de 32 
campos por registro) o problemas. Trate- 
mos de encontrar las respuestas a las 
preguntas con el vendedor que nos pro- 
veyb el soft (o recurra a la Hot-Line - 38- 
6601, si el producto es de Talent). Des- 
pubs de todo, si tenemos problemas ha- 
ciendo los ejemplos del manual, imagi- 
nemos los que podriamos tener si trata- 
mos de resolver un problema real con el 
programa. 


2. EFECTUEMOS EL 

TRABAJO DE DISENO EN EL PAPEL 

“^Para qub molestarnos en escribir todo 
en papel? ^,Para qub tenemos una com- 
putadora?” El mayor problema en cual- 
quier brea de la computacibn “seria” es la 
tendencia a saltar a la mitad del proceso 
antes de tomarse tiempo para trabajar en 
papel siquiera lo que deseamos hacer. Si 
poseemos un procesadordetexto, pode- 
mos utilizarlo en el trabajo de diseho so- 
bre papel. No comencemos a trabajar en 
la inicializacibn de la base de datos has- 
ta haber cumplido todos los pasos hasta 
el noveno. Si no los cumplimos, segura- 
mente tendremos problemas. 

3. DETERMINEMOS LOS RESULTA- 
DOS DESEADOS Y TRABAJEMOS 
“REMONTANDO LA CORRIENTE” 

Lo mbs natural es hacer una lista de los 
campos que deseamos incluir en la base 
de datos y luego setearlos. En este caso, 
lo mbs natural es lo incorrecto. Si encara- 
mos el problema de esta forma, lo mbs 
probable es que tengamos un campo o 
dos que nunca necesitemos y nos olvide- 
mos de algun campo vital de cierto repor- 
te. 

Estamos usando un programa de admi- 
nistracion de base de datos porque que- 
remos obtener alguna clase de resuKa- 
do, generalmente impreso en papel, un 
reporte de algun tipo. 

Si comenzamos con una listade reportes 
disenada cuidadosamente y trabajamos 
“remontando la corriente” hacia los cam- 
pos necesario para obtener ese resulta- 
do, seguramente ahorraremos espacio 
de mbquina valioso eliminado en el archi- 
vo con informacibn innecesaria. 

Si necesitamos duplicar un reporte ma- 
nual existente, las opciones son simples. 
Si es un reporte nuevo o queremos rea- 
lizar cambios en un sistema existente, 
.podriamos desear sentarnos f rente a u- 
na mbquina de escribir (o procesador de 
texto) y escribir el reporte con datos de e- 
jemplo (Ver la Figura 1 ). 

Una vez que tenemos el reporte de ejem- 
plo en la mano, el resto del proceso se e- 
jecutarb con facilidad. Si tambibn plane- 
amos que los datos se vean en pantalla, 
podemos crear pantallas de reporte de e- 
jemplo en papel, tomando en considera- 
cibn el tamaho y capacidad de la panta- 
lla de la computadora (por ejemplo, 
40x24 caracteres en MSX1 u 80x24 ca- 
racteres en MSX2). 

4. HAGAMOS UNA LISTA DE CAMPOS 

Si no se utiliza en la pantalla o en un re- 
porte impreso, no lo necesitamos. Escri- 


Figura 1 

Reportes sobre Software y Equlpamiento (Ejemplos) 


Inventarlo (Reporte 1) 


Nombre Numero Costo Precio En En 

Producto Inventario Unit. Unit. Stock Prestamo 

Lista de Precios (Reporte 2) 


Nombre Numero Precio 
Producto Inventario Unitario 

Compras propuestas (Reporte 3) 


Nombre Numero Necesidad Costo Total 
Producto Inventario Unitario 

Valor de Inventario (Reporte 4) 


Nombre Numero En Costo Valor 

Producto Inventario Stock Unitario 


Figura 2 

Campos Ingresados 

Campos calculados 

Nombre Producto 

Compra propuesta 

Numero Inventario 

Total 

Costo 

Valor 

Precio 


En stock 


En prbstamo 


Items mbximos en 


stock (no se imprime, 

pero se usa en el 

Reporte Compra Propuesta) 


Figura 3 


Fbrmulas utlllzadas en los campos calculados 


NECESIDAD = MAXIMO menos EN STOCK menos EN 
PRESTAMO 

TOTAL = COMPRA PROPUESTA veces COSTO 
(CP * COSTO) 

VALOR = EN STOCK veces COSTO 


bamos cada item en cada reporte. Si es 
un dato que se necesita ingresar, pongb- 
moslo en una lista. Si es un dato que pue- 
de ser calcu lado por el programa, ponga- 
moslo en otra lista. (Ver Figura 2). 
Ahora observemos la lista de los campos 
calculados por la computadora. Escriba- 
mos la informacibn que necesitara la mis- 


ma para poder calcu- 
larestos items. ^Esta 
incluida en la lista de 
campos? Si no lo es- 
ta, agregubmosla. A- 
hora escribamos 
cualquier fbrmula ne- 
cesaria (PRECIO = 
STOCK veces COS- 
TO UNITARIO) (Ver 
la Figura 3). ^Nuestro 
sistema de base de 
datos puede efectuar 
este tipo de operaciones? Si no 
estamos seguros, fijemonos en el 
manual y verifiquemoslo. 


5. HAGAMOS UNA LISTA CON 
LAS CARACTERISTICAS DE 
LOS 

CAMPOS 

La mayoria de los programas de 
base de datos quieren que deter- 
minemos como mlnimo dos co- 
sas sobre cada campo: una es la 
longitud maxima del mismo. Al- 
gunas longitudes de campo son 
fbciles de determinar. Un campo 
que contiene el cbdigo postal tendra una 
longitud de 4 caracteres y un telefono lo- 
cal, de ocho. 

Pero, ^qub sucede con un apellido o una 
direccibn postal? Estos campos requeri- 
rbn una pequena investigacion estadisti- 
ca. Si se especifica una longitud dema- 
siado corta, deberemos usar abre- 


viaturas para los datos de mayor longi- 
tud. Y poca gente ve con agrado que se 
abrevie su apellido. 

Y si esa longitud es excesiva, se desper- 
diciarb espacio de almacenamiento y es 
posible que no quepa en el formulario im- 
preso o etiqueta de mailing. Tratemos de 
buscar en los registros para averiguar 
que longitud tienen los ejemplos mas ex- 
tensos. Tambibn tengamos en cuenta las 
limitaciones de impresion de la impreso- 
ra o del formulario de impresion (por e- 
jemplo, si usamos una etiqueta de 6 cm, 
ninguna linea de direccibn postal podra 
exceder un total de 35 caracteres en letra 
normal de impresora). 

El otro item que se debe determinar es si 
el campo estarb disenado para aceptar 
datos numbricos (campo numbrico) o si 
un campo puede contener tanto letras 
como numeros (campo alfanumbrico o 
de carbcter. a veces denominado 
“string”). 

Como una regia general, todos los cam- 
pos deben setearse como alfanumbricos 
a menos que necesitemos utilizar mate- 
mbticas con ellos. Por el solo hecho de 
contener numeros, esto no hace que au- 
tombticamente deba ser un campo nu- 
mbrico. Es muy diffcil que necesitemos 
multiplicar un numero telefbnico por un 
cbdigo postal. Algunos programas pre- 
definen los tipos de campos de acuerdo 
al tipo de datos que estos van a albergar 
(como el signo $ o la fecha). 



LISTADOS 

Ai ti'culos S' Precius 
Stock v3lor izado vMovirmentos ! 
Estadi'sticas de venta 

EMISION DE 

ROTULOS AUTOADHESIVOS 


ORDENAMIENTO 

POR 

Categor <a* /t Numero 
Descripcion Mart_a 
Gala logo a" Proveedor 


IMPRESION 

E actura 
Remito 

N.jta lie debito 
hold de credito 


MSX CTAS CTES 


APLICACIONES ] 


LISTADOS 

Clientes/^Saldos 
ComprobdrUes V I.V.A 
Convenio multilateral 
VencimientosX Deudores 

EMISION DE MAILING J 


ORDENAMIENTO 

POR 

Nombre 
Codigo postal 
Vendedor 
Categor i d 
Numero 


IMPRESION 

Factura 
Remito 
Nota de 
debito 
Nota de 
credito 


DISENADO 
ESPECI ALMENTE PARA 


Control de ex«stencias (500 ar ti’culos) 
Actuahzacio: de precios po» 
r ango’y categor \ a 
Detalies de movinuento por 
articulo (3500 rnovimientos) 

Maneio de IVA 

^TbaP' d ° 


5 


1 


Cartera de chentes 
(500 cuentas) 

Detalle de movimiento por 
chentes (3500 rnovimientos) 
Manejo de I V.A. 


I 


sec 


e ' a l !S’ en paota 

or tent ac^ 


Ma ' 


l i vaTidW'O" ^ atl 0 n^ 


Fabrica y garantiza COMPUTAR S.R.L. Julian Alvarez 20)0. 6° piso A (1425) Buenos Aires - Argentina Telefono: 824-5953 


Distribuye en todo el pais ORGANIZACION MARO C.C. N° 21 (1826) Prov. Bs.As. - Tel.: 242-5569 
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Figura 4 


Campos 

Tlpo Campo 

Longltud 

Nombre Producto 

Alfa 

20 <- Clave primaria 

Presentacion 

Alfa 

10 

Numero de orden 

Alfa 

15 <- Clave secundaria 

Costo Unit. 

Numerico 

5 

Precio Unit. 

Numbrico 

5 

En stock 

Numbrico 

5 

En prestamo 
Items maximos 

Numbrico 

5 

en stock 

Numbrico 

2 

Calculados: 



Necesidad 

Numbrico 

2 

(Max-En stock-En prestamo) 
Total 


(Necesidad * Costo) 
Valor 

6 

(En stock * Costo) 

6 


6. LISTEMOS LOS CAMPOS EN UN 
ORDEN LOGICO 

El truco en el diseiio de un formulario es 
armarlo en el orden mbs natural posible. 
El siguiente formulario serfa muy diffcil 
de completar: 

Ciudad 

Apellido 

Codigo Postal 

Calle 

Nombre 

Provincia... 

Es mucho mas probable que la informa- 
cion nos llegue en el orden: Nombre, A- 
pellido, Calle, Codigo Postal, Ciudad, 
Provincia. Cualquier variation en esteorr 
den confundirfa a la persona que debe in- 
gresar los datos. Lo mismo puede decir- 
se de cualquier bloque de datos, en ma- 
yor o menor grado. Algunos arreglos se- 
ran mas claros y mas naturales que o- 
tros. Re-arreglemos los campos en un or- 
den que pensemos mbs logico y facil de 
usar. 

7. DETERMINEMOS LOS CAMPOS 
PARA ORDENAR 

Una de las tareas mas utiles que se pue- 
de ejecutaren cualquier programade ba- 
se de datos es arreglar la information en 
orden especffico, comunmente denomi- 
nado "sort”. Podrfamos necesitar impri- 
mir etiquetas postales ordenadas por co- 
digo postal para el correo. Otambien po- 
driamos tener la misma information or- 
denada por apellido. Se pueden encon- 
trar muchas formas de arreglar los datos, 
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cuando lacompu- 
tadora hace todo 
el trabajo para u- 
no. 

Algunos progra- 
mas de base de 
datos requieren 
que se determi- 
nen los campos 
que utilizaremos 
al disenar el ar- 
chivo. Si es asf, 
pensemos dete- 
nidamente qub 
campo utilizare- 
mos para el orde- 
namiento. Los 
programas dees- 
te tipo “se achan- 
chan” terrible- 
mente cuando e- 
xistennumerosas 
claves deordena- 
miento, que tam- 
bibn devoran rbpidamente el.espacio del 
disquete (Ver la Figura 4 para el armado 
final de campos). 

8. DISCUTAMOS LOS RESULTADOS 
CON OTRAS PERSONAS 

Por aquello de que “cuatro ojos ven mas 
que dos”, siempre otros podran verdeta- 
lles que no vimos y necesidades que ol- 
vidamos considerar, por mas experto 
que nos consideremos. Por lo tanto, aun- 
que es bueno involucrar a todas las per- 
sonas que necesitan la informacion que 
estamos almacenando en cada paso del 
diseno, es imperativo que otros tambien 
“se metan". 

El proximo paso es inicializar el archivo 
en la computadora. Las cosas que solo 
son ideas en este momento pueden ser 
muy dificiles de cambiar una vez que la 
informacion sea ingresada en la compu- 
tadora. Una hora en este momento pue- 
de ahorrar dfas mas adelante. 

9. INICIALIZAR EL ARCHIVO 

Por fin podemos encender la computa- 
dora. Ahora es tiempo de revisar los pa- 
sos que nos brinda el manual e inicializar 
el archivo y los reportes. Si hemos com- 
pletado los ocho pasos anteriores y tene- 
mos a mano todas las notas, este paso 
deberfa ser facil. 

10. PROBEMOSLO 

Hagamos una copia del disco de datos e 
ingresemos una docena de registros. 
Luego probemos todos los reportes yve- 
rifiquemos que muestren lo que desea- 
mos. Si cometimos un error grueso de di- 


seho, no nos preocupemos por comen- 
zarde nuevo. Es mas facil redisenar el ar- 
chivo de datos en este punto que cuando 
ya tenemos una gran cantidad de datos 
almacenados y tenemos que rehacer to- 
do mas tarde. 

Si trabajamos bien, continuemos ingre- 
sando el resto de los datos. Guardemos 
una copia del disco de datos cuando no 
tengamos aun ninguno ingresado. De 
estaforma, cadavezque necesitemoso- 
tra copia de esta base de datos, por ejem- 
plo con datos del aho siguiente, bastarb 
con copiar este disco de datos en bianco 
y usarlo. 

UNA APLICACION PERSONAL 

Ahora que hemos seguido el proceso en 
la teorfa, podrfamos tomarnos un poco 
de tiempo y aplicarlo a un problema par- 
ticular. Tenemos que llevar cuenta de 
muchas cosas, pero veamos algo rela- 
cionado con computadoras. 

Ya que no toma mucho tiempo llenar 
nuestros escritorios con una cantidad "e- 
norme” de discos (o cintas), muchos con 
una gran cantidad de programas, es muy 
facil perder la notion de qub hay y en que 
disco. 

Si trabajamos con una MSX podremos u- 
sar alguna de las bases de datos dispo- 
nibles: dBASE II, IdeaBASE, MS BASE, 
CardBox, Citation (para MSX2), etcete- 
ra. 

A pesar de usar un programa simple de 
base de datos, no encontramos ninguna 
limitation que pueda causar problemas 
para esta aplicacibn. Si usamos el Idea- 
BASE, la ficha puede tener tantos cam- 
pos y caracteres como entran en la pan- 
talla; mas que suficiente para nuestro ca- 

so. 

Llevamos nuestro trabajo prolijamente 
organizado en papel, listando en los si- 
guientes pasos las cosas que necesita- 
remos incluir en la base de datos y las de- 
cisiones que tomarnos. 

Queremos tres productos diferentes de 
nuestra base de datos. Primero, un lista- 
do alfabbtico de nuestros programas y el 
numero de disco en que se encuentran. 
Previamente, decidimos numerar los dis- 
cos secuencialmente y almacenarlos en 
cajas con un rotulo donde se indicaclara- 
mente el rango de discos almacenados 
en ellas. 

Segundo, queremos un listado de nues- 
tros programas por categorfa. Si quere- 
mos usar un programa educativo, pode- 
mos buscar que opciones tenemos y 
dbnde encontrarlas. 

Tercero, podrfamos valuar nuestro soft- 




ware para poder asegurarlo. Muchos 
programas fueron comprados y ser(a ca- 
ro reemplazarlos. Algunos son software 
de "dominio publico", que se distribuyen 
gratis en nuestro club de usuarios (o por 
poco dinero). 

Los reportes tendrian el siguiente forma- 
to: 

POR NOMBRE 

Nombre Programa: Numero Disco: Co- 
mentarios: 

POR CATEGORIA 

Categoria: Sub-Categorfa: Nombre Pro- 
g'ama: Numero Disco: Comentarios 

REPORTE COSTO 

Nombre Programa: Costo: 

Ahora veamos nuestros reportes y haga- 
mos una lista de los campos utilizados. 

Figura 5 


Figura 6 


Quedaria algo asi: 

Nombre Programa 

Numero Disco 

Comentarios 

Categoria 

Sub-Categorfa 

Costo 

Los pasos finales son: 

Listar las caracterfsticas de los campos. 

Arreglar los 
campos en 
un orden 16- 
gico. 

Elegir las 
claves de or- 
denamiento. 
Estas tres 
opciones se 
reflejan en el 
listado de 
campos (Fi- 


gura 5) 

Ahora podemos 
charlar con la gente 
quecompartirael u- 
60 de nuestro siste- 
ma. Si se ve bien, 
podemos ir iniciali- 
zando nuestra base 
de datos y verificar- 
la con algunos da- 
tos reales. La figura 
6 muestraparte de 
un reporte. 

CONCLUSION 

La administracion de una base de datos 
es una de las tareas mas utiles de las 
computadoras. Su potencial queda limi- 
tado unicamente por la imaginacion del 
usuario y la relativa falta de familiaridad 
en el proceso. 

Lamentablemente, la forma correcta de 
utilizar un programa de base de datos no 
es obvia. El usuario necesita pensartodo 
el proceso con cuidado antes de ir a la 
computadora. El tiempo que se invierta 
trabajando en papel se vera recompeij- 
sado con creces en la facilidad con que 
se creara la base de datos y en su utili- 
dad. 

Podremos verificar que al encarar la re- 
solution de problemas en forma sistema- 
tica con nuestra computadora siempre 
implicarb una mejora en el producto obte- 
nido y menores perdidas de tiempo. El 

proceso aquf 
descripto ha 
sido probado 
y verificado 
reiterada- 
mente, y ga- 
rantiza el a- 
provecha- 
miento total 
de nuestra 
base de da- 
tos. 


Archivo: MIS DISCOS 
Reporte: Ejemplo 5 


Numero Disco 

NOMBRE PROGRAMA 

CATEGORIA 

SUB-CATEGORIA 

COSTO 

COMENTARIOS 

2 

Planet Radar 

Juego 

Naves 

0 

Muy lento 

2 

Hammurabi 

Juego 

Aventuras 

0 


5 

Invierte y gana 

Juego 

Educativo 

51 

Entretenido 

3 

Dcopy 

Utilitario 

Programacibn 

0 

Diskcopy 

4 

MSX Utilities 

Utilitario 

Programacion 

120 

Tipo Norton! 

1 

Extensiones Logo 

Utilitario 

Programaci6n 

320 

Excelente 


Campo 

Tipo 

Longitud 

Clave para ordenar 

Numero Disco 

Numbrico 3 

No 

Nombre programa Alfa 

20 

Sf 

Categoria 

Alfa 

15 

Si 

Sub-categorfa 

Alfa 

15 

Si 

Costo 

Numdrico 5 

No 

Comentarios 

Alfa 

40 

No 



fUEGOS MSX EN DISCO Y CASSETTES: 


INDIANA JONES - HUNDRA - CALIFORNIA 
GAMES - TAIPAN - MATCH DAY 2 - BLACK BEARD 
-MADMIX GAMES. I 

TUEGOS MSX2: METAL GEAR - GAME OF GA- j 

LLIOUS - 1942 - NEMESIS IV - ETC. 

UTILITARIOS MSX: GEOS - HALOS - VIDEOGRA- 
FICS - EASY - LOTUS - CPM3.0 Y 1000 MAS. 

HORARIO CORRIDO LUNES A SABADO 9 A 20 
OFERTA DISCO CON 10 NOVEDADES A 50 3 1 /2 Y 5 1 /4 

MSX Y SPECTRUM CADA 4 PROGRAMAS 1 DE REGALO 
LAS NOVEDADES LAS TRAE 1° REAL TIME 
SIMPRE LO ULTIMO Y LO MEJOR 
^^S'DV^^^^^OC^^CPM4425U^NVIO^AMNTCRIO^ 


IMPRESCINDIBLE!! 

ARGOS 

Conjunto de herramientas para diskette 

* MODIFICA SECTORES O ARCHIVOS 

* ORDENA EL DIRECTORIO PERMANENTEMENTE 

* RECUPERA ARCHIVOS BORRADOS 

* TRADUCE SUS PROGRAMAS 

SI DESEA MAS INF0RMACI0N COMUNIQUESE CON: 
s======z^= PERU 359, 4to. of. 406 

£==--■== Tel. 331-4175 

ZONAS DISPONIBLES PARA DISTRIBUIDORES 





ESTRUCTURA DEL 
PROGRAMA 








SPRITES 



Autor: Diego Hernan Conde 
Tipo: Utilitario 

PARTICIPADEL CUARTO CONCURSO DE PROGRAMAS 


1 anecesidaddetenerunmetodo 
VH sencillo de crear SPRITES sin 
■I tener que recurrir a las hojas 
cuadric jladas y a la engorrosa tarea de 
transcribir ios valores correspondientes 
en decimal o hexadecimal f ue la base pa- 
ra la creacion de este programa, de mu- 
cha utilidad para Ios programadores de 
juegos. 

Desde la presentacion hasta la salida por 
impresora este programa ofrece diver- 
sos aspectos destacables. 

La portada del juego es superior a mu- 
chas de juegos comerciales, hecho que 
se repite en la mayoria de Ios participan- 
tes del 4to. Concurso. En ella se puede 
destacar la rutina de rotacibn de sprites. 
El seguimiento del programa es muy 
simple, ya que se maneja mediante me- 
nues, y tiene la posibilidad de pedir infor- 
mation para saber que orden se debe 
seguir para llegar al objetivo propuesto. 

FORMA DE USO 

La creacion del sprite se realiza median- 
te la pulsacibn de: 

a) la barra espaciadora, para que el cur- 
sor (mano) cambie de trazo. Es decirque 
si estaba escribiendo pase a borrar, y vi- 
ceversa. 

b) las teclas del cursor en todas sus di- 
recciones. 

c) RETURN para ver el menu principal o 
regresar al cuadro de trabajo. 

d) Ios numeros del 1 al 9. 

MENUES 

1. CUADRO: "bianco” o "negro”, pinta el 
cuadro de uno de esos colores y queda 
listo para comenzar a definir un nuevo 
sprite. “Manejo del cursor” permite con- 
trolar la velocidad de la mano. 

2. SPRITES: "rotar” gira la figura 90 gra- 
dos a la izquierda o a la derecha. "Inver- 
so” invierte la figura, es decir que lo que 
estaba en bianco pasara a ser negro y vi- 
ceversa. "Espejo horizontal” o “vertical” 
modifica el sprite, creando la figura simb- 
trica respecto a un eje horizontal o verti- 
cal. "Mover” mueve la figura una fila en la 
direction indicada. "Cambiar”, con tres 


posibilidades mas: a) volver sprite a (1): 
para comenzar nuevamente con el spri- 
te 1 . b) ver sprites: permite chequear Ios 
sprites creados. c) sumar sprites: suma 
un sprite para poder trabajar con otro. 

3. TAMANO DEL SPRITE: tenemos la 
posibilidad de ver nuestra creacibn en 
cinco tamahos diferentes. 

4. DATOS: "binario”, “decimal” o “hexa- 
decimal”. Los datos aparecen en panta- 
lla en forma ordenada y en el sistema de 


numeracion que especifiquemos. “Im- 
presora” hace lo mismo que el anterior, 
pero tendremos una copia impresa. 
"Merge” permite intercalar Ios datos de 
Ios sprites en nuestros programas. 

Para el uso del “merge” veamos un ejem- 
plo: 

- Terminemos de crear Ios sprites nece- 
sarios. 

- Imgresemos en la opcibn "merge”. 

- Coloquemos Ios numeros de las lineas 
donde queremos ubicar Ios datos. 

- Presionemos RETURN en cada una de 
las lineas para guardarlas en memoria. 

- De esta manera estaremos en condicio- 
nes de mezclar el programa con Ios da- 
tos de Ios sprites utilizando MERGE 
“CAS:” o MERGE “nombre del progra- 
ma”, segun necesitemos datasete o dis- 
quetera. 


10-70: datos del autor. 

80-220: inicializa pantalla y variables. 
230-480: bucle principal-movimiento del 
cursor. 

490-690: menu general. 

700-760: dibuja figura-sprite pequeho. 
770-970: imprime menu para cambiar el 
cuadro. 

980-1090: velocidad del cursor. 

1 1 00-1260: menu de opcibn “SPRITES”. 
1270-1360: rotar. 

1370-1450: inverso. 

1460-1550: espejo horizontal. 
1560-1650: espejo vertical. 

1660-2020: menu de opcibn “MOVER”. 


2030-2180: menu para cambiar de spri- 
te. 

2190-2510: sumar un. sprite; guardar 
sprite; ver sprite. 

2520-2600: impresion de puntos. 
2610-2750: tamaho del sprite. 
2760-2950: ampliar-reducir sprite. 
2960-3180: datos. 

3190-3300: binario. 

3310-3410: decimal. 

3420-3520: hexadecimal. 

3530-3730: imprimir. 

3740-4080: merge. 

4090-4310: cuadro borrar opciones 
cambiar color return letras. 

4320-4700: informacion. 

4880-5060: movimiento sprites. 
5070-5260: presentacion. 

5270-5440: rotacibn sprites. 

5450-5580: musicas. 
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5590-5740: definicibn de sprites. 

LISTA DE VARIABLES 

S$,P$: conjunto para establecer valores 
sobre las coordenadas. 

CO: indica el color de los dos cuadros. 
X%,Y%,X1 %,Y 1 %: coordenadas para el 
desplazamiento del cursor. 

D%: cambia el cursor para que borre o 
escriba. 

MO%,Z,DI%: auxiliares utilizados en el 
movimiento de sprites. 

OC%: indica el color de la mano. 

IN%: verifica si ha entrado en la opci6n 
impresibn. 

FR%,TI%,LI%: indica el color de tinta, 
borde y frente de la palabra RETURN. 
A%: movimiento de cursor mediante te- 
clas. 

C$,E$: variable auxiliar para utilizar el 


sistema 
nario. 

V%: deter- 
mina la ve- 
locidad del 
cursor. 

A: direccio- 
na lugares 
donde tiene 
que ir a par- 
tir del ingre- 
so de datos 
mediante 
menues. 

A$: variable 
utilizada pa- 
ra el ingreso 
de datos mediante el teclado. 

H: conjunto utilizado para la rotacibn de 
sprites. 

M%,N%: variables utilizadas en lazos y 


auxiliares. 

NS%: numero de sprite. 

G%: conjunto para cargar datos de spri- 
tes. 


10 ' 


20 '© © 
30 ' © SPRITES © 

40 '© © 

50 '© DIEGO H.CONDE - SANTA ROSA - L.P © 
60 '© REVISTA << LOAD MSX >> © 


70 ' ©@@©@©©@@@©@©@@©@@@@@©@@@©©©©@©@@@@@ 
80 SCREEN 2,2,0: COLOR 15, 1 , 1 : CLS: KEY OFF 
: WIDTH 32 

70 OPEN •'GRP:" AS#1 

100 * INICI ALI ZAC I ON— VARIABLES 

110 DIM SS (16,16) ,PS(16,16) ,H(8) ,G7.(480) 

,LS(32) 

120 GOSUB 5600 
130 GOSUB 5070 

1 40 C0= 15: X7.=9 : Y7.=9 : D7.= 1 : V7.= 1 : M07.=0 : D 1 7.= 

0 : 0C7.=4 : I N7.=0 : NS7.= 1 

150 CS=" 1 " : GOSUB 970 

160 GOSUB 5500 

170 GOSUB 4100 

190 GOSUB 4260 

200 GOSUB 710 

210 IF IN7.= 1 THEN IN7.=0:G0T0 3720 
220 FR7.= 1 3 : T 1 7.= 1 : L 1 7.= 1 1 : GOSUB 4200 
230 ' 

240 ' BUCLE PRINCIPAL 

250 ' 

260 PLAY " T200M5000S206L9D05BGR 1 006EDT255 
05L30" 

270 PUT SPRITE 1 , (X7.*8-10, Y7.*8+6> ,0C7.,0 
’280 IF PLAY (0) THEN 280 
290 ON STRIG GOSUB 460: STRIG (0) ON 
300 A7.=STICK<0> 

310 IF INKEYS=CHRS ( 13) THEN 500 
320 IF A7.=0 THEN 300 

330 X7.-X7.+SGN < A7.-1 ) *SGN (5-A7.) : Y7.=Y7.+SGN < 
A7.-3) *SGN(7-A7.) 

340 IF X7.<1 THEN X7.= 16 
350 IF X7.>16 THEN X7.= l 
360 IF Y7.<3 THEN Y7.= 18 
370 IF Y7.>18 THEN Y7.=3 
380 IF D7.= 1 THEN ES="0" ELSE ES="1" 

390 SS < Y7.-2 , X 7. ) =ES 

400 PSET (X7.*8,Y7.*8+4) ,D7.: COLOR D7.:PRINT 
#1 , "f" : COLOR 15 

410 PUT SPRITE 1, (X7.*8-10,Y7.*8+6> ,0C7.,0 
420 PSET(191+X7.,6+Y7.) ,D7.: PLAY"M500S1V9A" 
430 FOR N7.= l TO V7.:NEXT N7. 

440 GOTO 290 

450 CAMBIA CURSOR 

460 IF D7.= l THEN D7.= 15: 0C7.=6: ELSE D7.= l:0 

C7.=4 

470 STRIG (0) ON; RETURN 380 
480 RETURN 
490 ' 

500 ' MENU GENERAL 

•510 ' 

520 PUT SPRITE 1,(0,209) 

530 STRIG (0) OFF: GOSUB 4170 

540 FR7.=4 : T I 1 5 : L 1 7=2 : GOSUB 4200 

550 PLAY " T 200M5000S2 V 1 205GB06DR 1 005G06C " 

560 PSET (158,64): DRAW " C 1 2E8R72F8D 1 04G8L7 

2H8U104" 

570 PSET (159,64): DRAW "Cl 2E5R7 1 F8D 104": PA 
I NT ( 168,57) , 12 

580 COLOR lOsLINE ( 180,60) - (217,76) ,4, BF: 
PSFT(18^ .64) . 1 : PR I NT# 1 , " MENU " 


590 PSE 1 (168,88) , l:PRINT#l , " 1 -CUADRO " : PS 
ET(168, 104) , 1:PRINT#1 , "2-SPRITES" : PSET ( 1 

68 . 1 20 ) , 1 : PR I NT# 1 , " 3-T AMA%0 " 

600 PSET (168, 136) , 1:PRINT#1 , "4-DAT0S" : PS 
ET (168, 152) , 1 : PR I NT# 1 , "5- INFORM. " 

610 COLOR 15 
620 M07.= 1:DI7.= 1 
630 AS= INKEYS 

640 IF AS=CHRS (13) THEN GOSUB 4 170: GOTO 
240 

650 IF AS< " 1 " OR AS > " 5 " THEN 630 

660 PLAY " T255V 1 204 I 5M5000S3GB05DL4GR 1 ODG 

670 A= VAL ( AS ) : FOR N=2 TO 12: LINE ( 163 , 67+ 
(A* 16) ) — (240,85+ (A* 16) ) , N , B: L INE ( 164 , 68+ 
(A*16) >-<239,84+(A*16) ) , N,B: NEXT N 
680 PLAY " T 1 20M5000S2L605DC04BR8L 1 0AB05C0 
4AG" 

690 ON A GOTO 780,1110,2620,2970,4710 
700 ' 

710 ' SPRITE PEQUE70 

720 ' 

730 L I NE ( 1 92 , 9 ) - ( 207 , 24 ) , CO , BF 

740 LINE (188,5) -(211 ,28) , 6 , B: LINE ( 189 , 6) 

-(210,27) ,6,B 

750 COLOR 15: LINE ( 160,35) - (255,43) , 1 , BF: 
PSET (160,35) , 1: PRINT# 1 , " SPR I TE= " ; NS7. 

760 RETURN 
770 ' 

780 ' CAMBIAR CUADRO 

790 ' 

800 GOSUB 4170 

810 FR7.=6:TI7.= 15:LI7.= 10:G0SUB 4200 

820 PSET (160,56): DRAW " C 1 0R80D 1 05H8G8H8G8 

H8G8H8G8H8G8U 1 05 " : P A I NT ( 1 62 , 57 ) , 1 0 

830 L I NE (171, 60 ) — ( 227 , 75 ) , 4 , BF 

840 PSET (176,64) ,4: PRINT# 1 , "CUADRO" : COLO 

R 1 

850 PSET (168,88) , 10: PRINT#1 , " 1-BLANCO" : P 
SET ( 1 68 , 1 04 ) , 1 0 : PR I NT# 1 , " 2-NEGRO " : PSET ( 1 

68.120) ,10: PR I NT# 1 ,"3-" 

860 PSET (184, 115) ,10:PRINT#1 , "MANE JO" : PS 
El (184,125) ,10: PR I NT# 1 , "CURSOR" : PSET ( 168 
,136) , 10: PRINT# 1 , "4-MENU" 

870 COLOR 15 
880 AS= INKEYS 

890 IF AS=CHRS(13> THEN GOSUB 4 170: GOTO 
240 

900 IF AS< " 1 " OR AS>"4" THEN 880 
910 GOSUB 5460 

920 A=VAL (AS) : ON A GOTO 930,950,990,500 
930 L I NE ( 1 64 , 84 ) — ( 233 , 99 ) ,4,B:C0=15: CS=" 
1":D7.= 1:0C7.=4:G0SUB 4140 

940 GOSUB 710: GOSUB 970s GOSUB 4 170: GOTO 
240 

950 LINE (164, 100) -(233, 113) , 4 , B: C0=1 : CS= 

" O " : D7.= 1 5 : 0C7.=6 : GOSUB 4 1 40 

960 GOSUB 710: GOSUB 970: GOSUB 4 170: GOTO 

240 

970 FOR M*/.= l TO 16: FOR N7.= l TO 16:SS(M7., 
N7. ) =CS : PS ( M7. , N7-) = " " : NEXT N7. , M7. : RETURN 
980 ' 

990 ' VELOCIDAD CURSOR 

1000 ' 

1010 GOSUB 4170 

1 020 PSET (158,58): DRAW " C2D30F 1 0D45F 1 OE 1 0 
F 1 OE 1 OF 1 OE 1 0U45E 1 0U30L80 " : PA I NT ( 1 59 , 59 ) , 


2 

1030 LINE (158,56) -(238,57) ,6, BF: FOR N7.= l 
57 TO 238 STEP 6: LINE (N7.,52) - <N7.+3,55) ,6 
,BF: NEXT N7. 

1 040 COLOR 1 : PSET ( 1 65 , 70 ) : PR I NT# 1 , " VELOC I 
DAD": PSET (190, 86) , 2: PRINT#1 , "DEL" : PSET ( 1 
78,102) ,2: PRINT#1 , "CURSOR" 

1050 PSET (181 ,120) ,2:PRINT#1 (1-9) ":COL 
OR 15 

1060 AS= INKEYS: IF AS="" THEN 1060 
1070 IF AS=CHRS (13) THEN GQSUB 4170: GOTO 
240 

1080 IF AS< " 1 " OR AS>"9" THEN PLAY"T1200 
1 V12L4C" : GOTO 1060 

1090 V7.=VAL(AS)*5:G0SUB 4 170: GOTO 240 
1100 ' 

1110 ' SPRITES 

1120 ' 

1130 FR7.= 1:TI7.= 15:LI7.= 10:G0SUB 4200 
1140 GOSUB 4170 

1150 PSET ( 162 , 61 ) : FOR N=1 TO 5:DRAW"C13E 
8F8" : NEXT N 

1160 DRAW "Cl 3D 120": FOR N=1 TO 5:DRAW"C13 
G8H8 " : NEXT N: DRAW"C13U120" : PAINT ( 165,61 ) 
,13 

1170 LINE ( 172,64) —(234,79) , 12, BF: PSET ( 17 
6,69) , 12: PRINT#1 /'SPRITES" 

1180 COLOR 1 

1190 PSET (168,88) , 13:PRINT#1 , "1-R0TAR":P 
SET ( 1 68 , 1 04 ) , 1 3 : PR I NT# 1 , " 2- I NVERSO " : PSET 
(168, 120) , 13: PRINT#1 , "3-ESPEJ.H" 

1200 PSET (168 ,136) , 13: PRINT#1 , "4-ESPEJ. V 
" : PSET ( 1 68 , 1 52 ) , 1 3 : PR I NT# 1 , " 5-MOVER " : PSE 
T ( 1 68 , 1 68 ) , 1 3 : PR I NT# 1 , " 6-CAMB I AR " 

1210 COLOR 15 
1220 AS= INKEY* 

1230 IF AS=CHRS (13) THEN GOSUB 4170: GOTO 
240 

1240 IF AS< " 1 " OR AS>"6" THEN 1220 
1250 GOSUB 5460 

1260 A=VAL (AS) : LINE ( 164', 68+ ( A*16) )-(241 , 
84+ ( A*16> ) , 1 ,B: LINE (164,68+ (A*16) )-(241 , 
84+ (A* 16) ) , 1 , B: ON A GOTO 1280,1380,1470, 
1570,1670,2040 
1270 ' 

1280 ' ROTAR 

1290 ' 

1300 GOSUB 4 140: GOSUB 710 

1310 FOR M7.= l TO 16: FOR N7.= l TO 16 

1 320 PS ( M7. , N7. ) =SS ( 1 7-N7. , M7. ) 

1 330 SWAP SS < M7. , N7. ) , PS ( M7. , N7. ) : GOSUB 2550 
: SWAP PS ( M7. , N7. ) , SS ( M7. , N7. ) 

1340 NEXT N7.,M7. 

1350 FOR M7.= 1 TO 16: FOR N7.= l TO 16: SWAP 
SS ( M7. , N7. ) , PS ( M7. , N7. ) : NE X T N7. , M7. 

1360 COLOR 15: GOSUB 4 170: GOTO 240 
1370 ' 

1380 ' I NVERSO 

1390 ' 

1400 FOR M7.= l TO 16: FOR N7.= l TO 16 
1410 IF SS(M7.,N7.)="0" THEN SS <M7. , N7.) =" 1 " 
ELSE SS(M7.,N7.)="0" 

1420 GOSUB 2550 
1430 NEXT N7.,M7. 

1440 IF D7.= 1 THEN D7.= 15: C0=1 : ELSE D7.= 1 : C 
0=15 

1450 COLOR 15: GOSUB 4170: GOTO 240 
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1460 ' 

1470 ' ESPEJO HORIZONTAL 

1480 ' 

1490 GOSUB 4140: GOSUB 710 

1500 FOR M7.= l TO 16: FOR V/.= l TO 16 

1510 P* < M7. , N7. ) =S* ( 1 7-M 7. , N7. > 

1 520 SWAP S* < M7. , N7. ) , P* < M7. , N7. > : GOSUB 2550 
: SWAP P* < M7. , N7. ),S$( M7. , N7. ) 

1530 NEXT N7.,M7. 

1540 FOR M7.= l TO 16: FOR N7.= l TO 16: SWAP 
S* ( M7. , N7. ) , PS < M7. , N7.) : NEXT N7. , M7. 

1550 COLOR 15: GOSUB 4 170: GOTO 240 
1560 ' 

1570 ' ESPEJO VERTICAL 

1 580 ' 

1590 GOSUB 4140: GOSUB 710 

1600 FOR M7.= l TO 16: FOR N7.= l TO 16 

1610 PS < M7. , N 7. ) =S* ( M7. , 1 7-N 7. ) 

1620 SWAP S* <M7.,N7.) ,P*<M7.,N7.) : GOSUB 2550 
: SWAP P* < M7. , N7. ) , S* < M7. , N7. ) 

1630 NEXT N7.,M7. 

1640 FOR M7.= l TO 16: FOR N7.= l TO 16: SWAP 
S* <M7 ,N7.) , P* <M7. ,N7) : NEXT N7. , M7. 

1650 COLOR 15: GOSUB 4 170: GOTO 240 
1660 ' 

1670 ' MOVER 

1680 ' 

1690 GOSUB 4170 

1 700 PSET <158,58): DRAW " C7R26E5H5R26G5F5R 
3 1 D 1 567D76F 1 0L9 1 E 1 0U76H7U 1 5R3 " 

1710 COLOR 1:PAINT <159,59) ,7:LINE<175, 64 
)- <220,78) ,6,BF: PSET <179,67) : PRINT# 1 , "MO 
VER": COLOR 4 

1720 PSET <168,88) , 7 : PR I NT # 1 , " 1 -ARR I BA " : P 
SET<168, 104) ,7: PR I NT# 1 , "2-ABAJO" : PSET < 16 
8,120) , 7 : PRINT# 1 , "3-DERECH" 

1730 PSET<168, 136) ,7:PRINT#1 , "4-IZQUIE" 
1740 A*= INKEY* 

1750 IF A*=CHR* < 13) THEN GOSUB 4 170: GOTO 
240 

1760 IF A*< " 1 " OR A*>"4 " THEN 1740 
1770 GOSUB 5460 

1780 IF A*="2"0R A*="3"THEN M07.=0: DI7.=-1 
ELSE M07.= 1:DI7.= 1 

1790 A=VAL < A*) : LINE < 165 , 68+ < A*16) )-<233, 
84+ <A*16) ) , 1 ,B: ON A GOTO 1930,1930,1810, 
1810 
1800 ' 

1810 ' MOVER DER.IZQ 

1820 ' 

1830 GOSUB 4 140: GOSUB 710 
1840 FOR M7.= l TO 16 
1850 FOR N7.= l TO 16 
1860 Z=N7.+DI7. 

1870 IF M07.=0 AND Z=0 THEN Z=16 ELSE IF 
1=17 THEN Z=1 
1 8B0 P*<M7.,N7.)=S*<M7.,Z> 

1890 NEXT N7.,M7. 

1900 FOR M7.= l TO 16: FOR N7.=l TO 16: SWAP 
S* < M7. , N7. ) , P* < M7. , N7. ) : GOSUB 2550 : NE X T N7. , M 

7. 

1910 COLOR 15: GOSUB 4 170: GOTO 240 
1920 ' 

1930 ' MOVER ABA. ARR I 

1940 ' 

1950 GOSUB 4140: GOSUB 710 
1960 FOR M7.= l TO 16 
1970 FOR N7.= l TO 16 
1980 Z=M7.+DI7. 

1990 IF M07.=0 AND Z=0 THEN Z=16 ELSE IF 

1=17 THEN Z=1 

2000 P* < M7. , N7. ) -SS < Z , N7. ) 

2010 NEXT N7.,M7. 

2020 GOTO 1900 
2030 ' 

2040 ' CAMBIAR DE SPRITE 

2050 ' 

2060 GOSUB 4170 

2070 PSET <152,61) : DRAW"c4E4H4E4R15F5B5R5 
8H5E5R 1 5F5G5F3D 1 02F2D7L99U7E2U 1 02 ": PA I NT 
<153,62) ,4 

2080 LINE <169,70)- <232,83) , 2 , BF: PSET < 176 
,73) ,2:PRINT#1 , "CAMBIAR" 

2090 PSET <163,93) ,4:PRINT#1 , " 1-VOLVER" : P 
SET< 170, 105) ,4:PRINT#1 , "SP. A < 1 ) " 

2100 PSET < 163, 120) ,4:PRINT#1 , "2-VER" : PSE 
T< 176, 131) , 4: PRINT#1 , "SPRITES" 

2110 PSET <163, 145) ,4: PRINT# 1 , "3-SUMAR":F 
SET <176, 156) ,4: PRINT# 1 , "SPRITE" 

2120 A*= INKEY*: IF A*="" THEN 2120 
2130 IF A*=CHR* < 13) THEN GOSUB 4170: GOTO 
240 

2140 IF AS< " 1 " OR A*>"3" THEN 2120 
2 1 50 PLAY " T 1 20M5000S2L605DC04BR8L 1 0AB05C 
04AG " 

2160 A7.=VAL<A*) : ON A7. GOSUB 2180,2320,22 
20 

2170 GOSUB 4 170: GOTO 220 
2180 NS7.= 1: GOSUB 750: RETURN 
2190 ' 

2200 ' SUMAR SP. 


2210 ' 

2220 LINE <160,93) -<240, 139) , 1 ,BFi PSET < 16 
3,100) : PR I NT# 1 , "GUARDANDO'': PSET < 175, 1 15) 
:PRINT#1, "SPRITE" 

2230 ' 

2240 ' BUARDAR 

2250 ' 

2260 B*= " " : E*= " " : GR7.= 1 
2270 GOSUB 3320 

2280 C*=" 1 " : GOSUB 970: CO* 15: GOSUB 4140 
2290 NS7.=NS7.+ 1: IF NS7.>15 THEN NS7.= 15 
2300 GR7.=0: GOSUB 710: GOSUB 4 170: GOTO 220 
2310 ' 

2320 ' VER SPRITE 

2330 ' 

2340 FS-" " : Q*=" " 

2350 LINE <160, 145) -<240, 166) ,1,BF:PSET<1 
63,150) , 1:PRINT#1 ,"Nro. : " 

2360 A*= INKEYS: IF A*="" THEN 2360 
2370 IF A*< " 1 " OR A*>"9" THEN 2360 
2380 BEEP: PSET <210, 150) , 1 : PR I NT# 1 , AS 
2390 F*= INKEY*: IF F*="" THEN 2390 
2400 IF F*=CHR* < 13) THEN F*="":GOTO 2430 
2410 IF F*< "0" OR F*>"5" THEN 2390 
2420 BEEP: PSET <218, 150) , 1 : PRINT#1 , F* 

2430 C*=A*+F*:IF VAL<C*)>15 THEN AS="":F 
*_ : l I NE <210, 1 50 > - < 226 , 1 58 ) ,1,BF:G0T0 2 

360 

2440 FS= " " : M7.= < VAL < C* ) - 1 > *32+ 1 : FOR N7.=M7. 

TO M7.+32: F*=F*+CHR* <G7. <N7.) ) : NEXT N7. 

2450 SPRITE* < 15) =FS: C0=1 : GOSUB 710: PUT S 

PRITE 5, <192,8) ,15,15 

2460 AS= INKEYS: IF A*="" THEN 2460 

2470 PUT SPRITE 5, <0,209) 

2480 FOR M7.= l TO 16: FOR N7.= 1 TO 16 

2490 IF S* <M7.,N7.)a"0" THEN CU7.= 1:C7.=4 EL 

SE CU7.= 15:C7.=6 

2500 GOSUB 2580: NEXT N7.,M7. 

2510 RETURN 
2520 ' 

2530 ' IMPRESION PUNTOS 

2540 ' 

2550 PSET < N7.*8 , M7.*8+20 ) 

2560 IF S*<M7.,N7.)="0" THEN CU7.= 1:C7.=4 EL 
SE CU7.= 15:C7.=6 

2570 COLOR CU7.: PRINT# 1 , "f" : PUT SPRITE 1, 
<N7.*8-10,M7.*8+20) ,C7.,0 
2580 X27.= 1 9 1 +N7. : Y27.=8+M7. 

2590 PSET < X27. , Y27. ) , CU7. 

2600 RETURN 
2610 ' 

2620 * TAMA7.0 • 

2630 ' 

2640 GOSUB 4170 

2650 FR7.= 13:TI7.= 15:LI7.= 11:G0SUB 4200 
2660 PSET <158,58): DRAW " C2D30F 1 0D53F 1 OE 1 0 
F 1 OE 1 OF 1 OE 1 0U53E 1 0U30L80 " : PA I NT < 1 59 , 59 ) , 
2 

2670 LINE < 158 , 56) — <238 , 57) ,6,BF:F0R N7.= l 
57 TO 238 STEP 6: LINE <N7. , 52) - <N7.+3, 55) ,6 
, BF : NEXT N7. 

2680 COLOR 1 : PSET < 1 68 , 70) , 2: PRINT# 1 , " TAM 
A70 ": PSET <190,86) , 2: PRINT# 1 , "DEL" : PSET 

<178, 102) ,2: PRINT#1 , "SPRITE" 

2690 PSET <180, 120) ,2: PRINT#1 , " < 1-5) " : COL 
OR 15 

2700 AS= INKEYS: IF AS="" THEN 2700 
2710 IF A*=CHR* < 1 3) THEN GOSUB 4170: GOTO 
240 

2720 IF AS< " 1 " OR AS>"5" THEN PLAY"T1200 
1 V12L4C" : GOTO 2700 
2730 GOSUB 5460 
2740 C7.= VAL < AS ) 

2750 GOSUB 4170 
2760 ' 

2770 ' AMPL I AR/REDUC I R 

2780 ' 

2790 L I NE < 1 50 , 0 ) - < 255 , 50 ) , 1 , BF 

2800 X27.= 191— <C7.*C7.) : Y27.=8 

2810 FOR M7.= l TO 16: FOR N7.= l TO 16 

2820 IF S*<M7.,N7.)="0" THEN C0=1 ELSE C0= 

15 

2830 LINE < X27.+N7.-C7. , Y27.+M7.) - < X27.+N7. , Y27.+ 
M7.+C7.-1) , C0,BF 
2840 X27.=X27.+C7.-1 

2850 NEXT N7.:X27.= 191-<C7.*C7.):Y27.=Y27.+C7.- 
1 :NEXTM7. 

2860 X27.= 1 91 - < C7.*C7.) : Y27.=8 

2870 LINE <X27.-3-C7.,5)-<X27.+ < 16*C7.) + <5-C 

7.) , Y27.+ < 1 6*C% ) +4 ) , 15 , B 

2880 AS= INKEYS: IF A*OCHR*<13) THEN 2880 
2890 L I NE < 1 55 , 0 > — < 255 , 1 00 ) , 1 , BF 
2900 GOSUB 740 

2910 FOR M7.= l TO 16: FOR N7.= l TO 16 
2920 IF S*<M7.,N7.)="0" THEN CU7.*1 ELSE C 
U7.= 15 

2930 GOSUB 2580 
2940 NEXT N7.,M7. 

2950 GOTO 240 
2960 ' 

2970 ' DATOS 


2980 

2990 GOSUB 4170: B*~" " : E*=" " : GR7.=0 
3000 FR7.=2:TI7.= 1:LI7.=4:G0SUB 4200 
30 1 0 PSET (f 1 60,65) : DRAW " C6R32H7R 1 0E7F7R 1 0 
G7R32D 1 1 6G 1 OH 1 OL 1 6G6H6L 1 6G 1 OH 1 OU 1 1 6 " 

3020 PAINT < 161 , 67) ,6 

3030 L I NE <181, 69 ) — < 224 , 83 ) ,12,BF 

3040 PSET < 1 84 , 72 ) : PR I NT# 1 , " DATOS " 

3050 COLOR 1 : PSET <167,97) ,6: PRINT#1 , "1-B 
I N AR 10": PSET <167, 113) ,6:PRINT#1 , "2-DECIM 
AL": PSET <167, 129) ,6: PRINT# 1 , "3-HEXADEC. " 
3060 PSET <167, 145) , 6: PRINT#1 , "4-IMPRIM. " 
: PSET < 167, 161) ,6:PRINT#1 , "5-MERGE" : COLOR 
15 

3070 A*= INKEY* 

3080 IF A*=CHR* < 13) THEN GOSUB 4 170: GOTO 
240 

3090 IF AS< " 1 " OR A*>"5" THEN 3070 
3100 GOSUB 5460 

3110 A7.*VAL<AS) : LINE < 161 , 77+ < A7.*16) )-<24 
3,93+<A7.*16) ) , 1 ,B 

3120 IF A*="4" THEN IN7.= 1:G0T0 3540 
3130 C0=1: GOSUB 4140 

3140 PSET <71 ,28) : DRAW" C4D127C1H63C 15R 127 

3150 ON A7. GOSUB 3200,3320,3430 
3160 IF A7.=4 THEN 3540 
3170 IF A7.=5 THEN 3750 
3180 GOTO 3560 
3190 ' 

3200 ' BINARIO 

3210 ' 

3220 FOR M7.= l TO 16 
3230 GOSUB 3280 

3240 IF GR7.= 1 THEN LPRINT TAB < 1 ) ; CHR* < 14 

) ; B* ; CHR* < 1 3 ) : GOTO 3260 

3250 PSET <9,21 +M7.*8 > ,1:PRINT#1 ,B* 

3260 B*=" " : NEXT M7. 

3270 RETURN 

3280 ' CONVERSION BIN 

3290 FOR T7.= l TO 16: B*=B*+S* <M7., T7.) : NEXT 
T7. 

3300 RETURN 
3310 ' 

3320 ' DECIMAL 

3330 ' 

3340 FOR M7.= l TO 16: GOSUB 3280: E*="$<B"+L 
EFT* < B* , 8 ) : Q*=STR* < VAL < ES ) ) 

3350 IF GR7.== 1 THEN G7. <M7.+NS7.*16+ <NS7.-1 ) * 

16-16) =VAL <QS) : GOTO 3370 

3360 PSET <25,21 +M7.*8 > , 1 : PR I NT# 1 , Q* 

3370 E*= " &B " +R I GHT * < B* , 8 ) : Q*=STR* < VAL <E* 

) ) 

3380 IF GR7.= 1 THEN G7. <M7.+NS7.*16+ <NS7.-1 ) * 

1 6 ) =VAL < Q* ) : GOTO 3400 

3390 PSET<8B,21+M7.*8) , 1 : PRINT#1 , Q* 

3400 B*="”:E*="":NEXT M7. 

3410 RETURN 
3420 ' 

3430 ' HEXADECIMAL 

3440 ' 

3450 FOR M7.= l TO 16: GOSUB 3290: E*="$<B"+L 
EFT* < BS , 8 ) : Q*=RIGHT* < "0"+HEXS < VAL <ES) ) ,2 
) 

3460 IF GR7.= 1 THEN L* <M7.) =Q*: GOTO 3480 
3470 PSET <34,21 +M7.*8 ) , 1 : PR I NT# 1 , Q* 

3480 E*= " ?<B " +R I GHT* < B* , 8 ) : 0*=RIGHT* < "0" + 
HEX* < VAL <ES) ) ,2) 

3490 IF GR7.= 1 THEN L* <M7.+ 16) =QS: GOTO 351 
O 

3500 PSET<96,21+M7.*8) , 1:PRINT#1 ,QS 
3510 B*=" " : QS=" " : E*=" " : NEXT M7. 

3520 RETURN 
3530 ' 

3540 ' IMPRIMIR 

3550 ' 

3560 GOSUB 4170: BS= " " : E*= " " : GR7.=0 
3570 FR7.=2:TI7.= 1 : LI */.=4: GOSUB 4200 
3580 PSET <160,65) : DRAW"C6R32H7R10E7F7R10 
G7R32D92G 1 OH 1 OL 1 6G6H6L 1 6G 1 OH 1 0U92 " 

3590 PAINT<161 ,67) ,6 

3600 LINE < 173 , 69) — <243 , 83) , 12,BF 

3610 PSET <176,72) , 12:PRINT#1 , "IMPRIMIR" 

3620 COLOR 1 : PSET < 167,97) ,6: PRINT#1 ," 1-B 

I N AR 10": PSET < 1 67 ,113) ,6:PRINT#1 , "2-DECIM 

AL": PSET <167, 129) ,6:PRINT#1 , "3-HEXADEC. " 

: COLOR 15 
3630 A*= INKEY* 

3640 IF A*=CHR* < 13) THEN 3690 
3650 IF A*< " 1 " OR A*>"3" THEN 3630 
3660 GOSUB 5460 

3670 A7.=VAL<A*) : LINE < 161 , 77+ <A7.*16) )-<24 
3,93+<A»/.*16) ) , 1 ,B 
3680 GOTO 4320 
3690 GOSUB 4170 

3700 IF IN7.-1 THEN IN*/.=0:G0T0 240 
3710 GOSUB 4140 

3720 FOR M7.= l TO 16: FOR N7.= l TO 16: GOSUB 
2550: NEXT N7.,M7. 

3730 GOTO 220 
3740 ' 



3750 ' MERGE 

3760 ' 

3770 C0=1 s GOSUB 4140 

3780 PSET (10,30) , 1 sPRINT#l , "MERGE: " : PSET 
(10,45) , 1 : PR I NT# 1 , "PERMITE INTER-" : PSET ( 
10,53) , 1 : PRINT#1 , "CALAR LOS DATOS" 

3790 PSET <10, 61), Is PR I NT# 1 , "DE LOS SPRIT 
. PSET < 10,69) , 1 : PRINT# 1 , "EN SU PROGRAM 

A. " 

3800 PSET (10,83) , 1 .-PRINT# 1 ,"<SU PROGRAMA 
DE_" : PSET ( 10,91 ) , 1 : PR I NT# 1 , "BE ESTAR GR 
ABADO": PSET (10,99) , 1 : PRINT#1 ,"EN ASCII. " 
3810 PSET (10,113) ,1: PR I NT# 1 , "EL PROGRAMA 
" : PSET (10,121) ,1: PR I NT # 1 , " <<• SPRITES >> 
": PSET (10, 129) ,1 -.PRINT# 1 , "SE AUTODESTRUI 
RA" 

3820 PSET (18, 143) , 1:PRINT#1 , "CONTINUA <S 
/N) M 

3830 A*=INKEY*:IF A*="" THEN 3830 
3840 IF A*="S" OR A*="s" THEN 3880 
3850 C0= 15: GOSUB 4140 

3860 FOR M7.= l TO 16: FOR N7.= l TO 16: GOSUB 
2550: NEXT N7.,M7. 

3870 GOSUB 4 170: GOTO 220 

3880 LINE ( 18. 143) -<138, 151)-, 1 ,BF: PSET ( 18 
, 143) , 1 : PRINT# 1 , "UN MOMENTO ! ! ! ":B*="":E* 
=" " : GR7.= 1 : GOSUB 3320 
3890 SCREEN 1: WIDTH 32: CLS: B*=" " 

3900 CLS: LOCATE 0,0:PRINT"Nro. DE COMIEN 
ZO DE LAS LINEAS": LOCATE 0,1:PRINT"DE LO 
S DATOS (MAYOR DE 9999) " 

3910 A7.=0: LOCATE 10,3: LINE INPUT A* 

3920 FOR N7.= l TO NS7.: LOCATE 0,N7.*5 

3930 IF N7.>4 THEN 4030 

3940 PRINT VAL (A*> +N7.*10-10; "DATA "; 

3950 FOR MX=1 TO 32: A7.=A7.+ 1 » B*=STR* <G7. < A 
7.)): PRINT MID* <B* , 2 , 3) ; " , " ; : NEXT M7. 

3960 A=POS(X) ;B=CSRL IN: LOCATE A-1,B:PRIN 
T" ":NEXT N7. 

3970 PR I NT "GOTO 3980": GOTO 4080 
3980 CLS: LOCATE O ,0: PRINT "DELETE 10-3980 
" : PR I NT : PR I NT " DELETE 4090-5740 " : PR I NT : PR 
I NT "GOTO 3990": END 

3990 CLS: LOCATE 0,0: PR I NT " PARA MEZCLAR S 
U PROGRAMA TECLEE: " 

4000 PR I NT : PR I NT " MERGE " ; CHR* ( 34 ) ; " CAS : " ; 

CHR* (34) ; " PARA DATASSETTE" 

4010 PR I NT " MERGE " ; CHR* < 34 ) ; " NOMBRE DEL P 
ROG. ";CHR* (34) ; " ...PARA DISKETERA" 

4020 DELETE 3990-4080: END 
4030 IF N7.=5 THEN 4070 
4040 IF N7.=9 THEN 4070 
4050 IF N7.-13 THEN 4070 
4060 GOTO 3940 

4070 LOCATE 0,23: PR I NT" CLS: LOCATE 0,24:G 
OTO 3940" 

4080 LOCATE 0,24: PRINT"*PRESIONE RETURN 
EN CADA LINEA*" : END 
4090 ' 

4100 ' CUADRO 

4110 ' 

4120 LINE (0,20) -(144, 163) , 4 , B: L. INE < 1 , 2 1 ) 
-(143,162) , 4 , B 

4130 LINE (2,22) -(142, 161) , 4 , B: LINE ( 4 , 24 ) 
-(140,159) , 4 , B 

4140 LINE (8 , 28) -( 135 , 155) ,CO,BF 
4150 LINE (7 ,27) -( 136, 156) ,4,B 
4160 RETURN 

4170 ' BORRA OPCIONES 

4180 LINE (145,47) -(255, 192) ,1,BF 
4190 RETURN 

4200 ' CAMBIA COLOR RETURN 

4210 LINE <0 , 174) - < 164 , 186) , 1 , BF 

4220 LINE (0,174) -(62, 186) ,FR7.,BF 

4230 COLOR TI7.: PSET (8 , 177) : PR I NT# 1 , "RETU 

RN": COLOR 15: PSET (68, 177) , 1 : PRINT#1 , "par 

a salir" 

4240 LINEU , 173) - <63, 187) ,LI7.,B: LINE <0, 1 
72)-(64, 188) , L 1 7. , B 
4250 RETURN 

4260 ' LETRAS AMPLIADAS 

4270 PRESET (0, 180) : PRINT# 1 /'SPRITES >" 
4280 FOR N7.=0 TO 80: FOR M7.= 180 TO 192: T= 
T+l 

4290 IF POINT <N7.,M7.) = 15 THEN LINE(N7.*2,T 
*2) - <N7.*2+6,T*2+2) ,15,B 
4300 NEXT M7.:T=0:NEXT N7. 

4310 RETURN 
4320 ' 

4330 ' IMPRESION 

4340 ' 

4350 LPR I NT : LPR I NT STRING* <79 , ) 

4360 LPR I NT CHR* < 14) ; TAB < 10) "DATOS DE LO 
S SPRITES"; CHR* (13) 

4370 LPR I NT: LPR I NT 

4380 IF A7.= l THEN A*="BI NARIO" 

4390 IF A7.=2 THEN A*=" DECIMAL" 

4400 IF A7.=3 THEN A*=" HEXADECIMAL" 

4410 LPRINT : LPRINT"SISTEMA NUMERICO: " ; A 
* 

4420 LPRINT "Sprl te Nro. : NS7.: LPRINT 

4430 GOSUB 4170 


4440 LINE < 165,68) - (240, 118) ,4,BF 
4450 PSET ( 1 72 , 72 ) , 1 : PR I NT# 1 , " ESPERE " : PSE 
T ( 1 90 , 88 ) , 1 : F'RINT#1 , "UN" : PSET (172, 104) ,1 
:PRINT#1 /‘MOMENTO" 

4460 GR7.= 1:IF A7.= 1 THEN GOSUB 3220: GOTO 
4600 

4470 A*=" " r LPRINT CHR 

*(14) ; A* 

*4480 ON A7. GOSUB ,3340,3450 
4490 IF A7.=2 THEN 4510 
4500 IF A7.=3 THEN 4610 
4510 FOR M7.= l TO 16 
4520 LPRINT CHR* < 14) ; " ! " j 
4530 LPRINT TAB (3) ; USING"###" ; 87. (M7.+NS7.* 
16+ (NS7.-1) *16-16) ; 

4540 LPRINT CHR* ( 14) ; TAB (9) ; " ! " ; 

4550 LPRINT TAB < 13) ; USING"###" ; G7. (M7.+NS7. 
*16+ (NS7.-1) *16) ; 

4560 LPRINT CHR* < 14) > TAB < 18) ; " ! " 

4570 IF M7.=8 THEN LPRINT CHR* (14); A* 

4580 NEXT M7. 

4590 LPR I NT CHR* ( 1 4 ) ; A* 

4600 GR7=0: GOTO 3690 
4610 FOR M7.= 1 TO 16 
4620 LPRINT CHR* < 14) ; " ; 

4630 LPRINT TAB (4) ; L* <M7.) ; 

4640 LPRINT CHR* < 14 > ; TAB <B> ; " ! " ; 

4650 LPRINT TAB < 12) ; L* (M7.+ 16) ; 

4660 LPRINT CHR* < 14 ) ; TAB < 18) ; " ! " 

4670 IF M7.=8 THEN LPRINT CHR* (14); A* 

4680 NEXT M7. 

4690 LPRINT CHR* (14); A* 

4700 GOTO 4600 
4710 ' 

4720 ' INFORMACION 

4730 ' 

4740 CLS 

4750 LINE (6, 6)- <30, 186) , 1 1 , BF: LINE <0 , 0) - 
(36,192) , 6 ,B: LINE ( 1 , 1 ) - < 35 , 19 1 ) , 6 , B 
4760 PSET (40,0) , 1 : PR I NT# 1 ," INFORMACION: " 
4770 PSET (40,24) ,1:PRINT#1 1 -CUADRO NE 
GRO. " 

4780 PSET (120, 16) , 1 : PRINT# 1 , "BLANCO. ": PS 
ET< 120,32) , 1 : PR I NT# 1 , " MANE J 0 CURSOR. " 
4790 PSET (i 16, 10) , 15: DRAW"G3D10G3F3D10F3 

4800 PSET (120,48) , 1 : PRINT# 1 , "ROTAR. " : PSE 
T ( 120 , 56) , 1:PRINT#1 , "INVERSO. " 

4810 PSET (40,64) ,1:PRINT#1 /'2-SPRITES ES 
P. HORIZONTAL. " : PSET < 120 , 72) , 1 :PRINT#1 , "E 
SPEJ. VERICAL" 

4820 PSET (117, 46), 15: DRAW " G3D 1 5G3F3D 1 5F3 
":PSET( 120,80) , 1:PRINT#1 , "CAMBI AR=0/+/VE 
R" 

4830 PSET (120,88) , 1:PRINT#1 , "MOVER. " : PSE 
T (74, 112) ,1:PRINT#1 , "ARRIBA - ABAJO":PSE 
T (74, 120) , 1:PRINT#1 , "DERECHA-I ZQUIERDA" 
4840 PSET <7 1,1 08) ,15: DRAW"E3R61E3F3R6 1F3 

4850 PSET (40 , 136) , 1 : PR I NT# 1 , "3— TAMA70 DE 
L SPRITE. " 

4860 PSET (120, 152) , 1 : PR I NT# 1 , " B I NAR 10. " : 
PSET (120, 160) , 1:PRINT#1 , "HEXADECIMAL. ":P 
SET (40, 168) , 1:PRINT#1 , "4-DATOS DECIMAL 
. PSET (120, 176) ,1:PRINT#1 /'IMPRIMIR. " 
4870 PSET (120, 184) , 1 : PRINT# 1 , "MERGE. " : PS 
ET(1 16,148) , 15: DRAW"G3D15G3F3D15F3" 

4380 ' 

4890 ' MOV. SPRITES 

4900 ' 

4910 M7.=0 : N7.=5 : I N7.= 1 

4920 IF M7.=0 THEN N7.=N7.+ 1 : IF N7.=23 THEN 
M7.= 1:G0T0 4940: ELSE 4950 


4930 

GOTO 4950 




4940 

A*= 

INKEY*: 

IF A*=" " THEN 

4950 ELSE 5 

060 






4950 

IF I 

M7.= l THEN N7.=N7.-1:IF 

N7.= 

=5 THEN M 

v. = o 

4960 

PUT 

SPRITE 

1 , (10, N7. ) ,6 , 

1 


4970 

PUT 

SPRITE 

2, <10,N7.*2-2> 

,4 

,2 

4980 

PUT 

SPRITE 

3, (10,N7.*3-3) 


,3 

4990 

PUT 

SPRITE 

4, (10,N7.*4-4) 

,4 

,4 

5000 

PUT 

SPRITE 

5, <10,N7.*5-5) 


i *-* 

5010 

PUT 

SPRITE 

6, < 10,N7.*6-6) 



5020 

PUT 

SPRITE 

7, (10,N7.*7-7) 


,7 

5030 

PUT 

SPRITE 

8, ( 10 , N7.*7-7) 

,4 

,1 

504.0 

FOR 

M=1 TO 

10: NEXT M 



5050 

GOTO 4920 




5060 

FOR 

N=1 TO 

8: PUT SPRITE 

N, 

(0,209) : N 


EXT N: CLS: GOTO 170 
5070 ' 

5080 ' PRESENT AC I ON 

5090 ' 

5100 LINE ( 128,64) -( 128, 192) ,3 
5110 F0RI=1T06: LINE (128-1*8,64) -<128-1* 

20,191) ,3: LINE (128+1*8, 64) -(128+ 1*20, 191 
) ,3: NEXT 

5120 RESTORE 5130: F0RI=1T07: READA: L INE < 1 
78+1*8,64) -<255, A) , 3: LINE <82-1 *8 , 64) - (0 , 
A) ,3: NEXT 

5130 DATA 170,142,121,104,90,78,70 
5 1 40 FOR I =2T05STEP . 3 : Y=EXP ( I ) +57 : L I NE ( 0 


, Y) - (255, Y) ,3: NEXT 

5150 FOR I =0T060 : X= I NT < RND ( 1 ) *256 ) :Y=INT 
(RND < 1 ) *63) : C=INT (RND ( 1 ) *15+1 ) :PSET(X,Y) 
,C: NEXT 

5160 CIRCLE (0,0) , 50 , 10: PAINT ( 1 , 1 ) , 10 
5170 SOUND 7, $<B1 1 1 1 1 1 10: SOUND 8,15:B=50: 
C=200: FOR N=7 TO 1 STEP -1 : C=C-20: B=B-4 
5180 FOR M=0 TO CsPUT SPRITE N,(M,B),15, 
N: SOUND 0,M:NEXT M: NEXT N 
5190 SOUND 8,0 
5200 GOSUB 5540 

5210 CIRCLE (200, 137) ,21 , 4: PAINT (200 , 137) 

,4 

5220 PSET (200, 154) : DRAW " u 1 h 1 u2h 1 u2h 1 1 1 h 1 
ulhlule2ulh21 Ih2ulhlu2e2ulh212gl " 

5230 DRAW " u 1 e2r 2e 1 r 2 " 

5240 PSET (200,151 ) : DRAW"r Iu3e2u2h2ul 1 lh2 
1 Ih2e2r If Id Iu3elulelu2elulh2g21 lhle?2hll2 

5250 PAINT <201 , 147) , 15: PAINT <200 , 130) , 15 
5260 A*="POR DIEGO CONDE" : PSET <20 , 180) , 1 
: PR I NT # 1 , A* : PSET (21 , 180) , 1:PRINT#1 ,A* 
5270 ' 

5280 ' ROTACION 

5290 ' 

5300 FOR M=1 TO 8: H (M) =M-1 : NEXT; M 
5310 FOR P=0 TO 7: FOR N=1 TO 32 
5320 PUT SPRITE H < 1 ) , ( 161 , 96+N) , 15 , H < 1 ) 
5330 PUT SPRITE H (2) , ( 161 , 128+N) ,H (2) +2, 
H (2) 

5340 PUT SPRITE H (3) , ( 161+N , 160) , H (3) +2 , 
H (3) 

5350 PUT SPRITE H (4) , ( 193+N, 160) ,H<4) +2, 
H (4) 

5360 PUT SPRITE H (5) , (225 , 160-N) , H (5) +2 , 
H (5) 

5370 PUT SPRITE H (6) , <225 , 128-N) , H (6) +2 , 
H (6) 

5380 PUT SPRITE H (7) , <225-N,96) ,H (7) +2,H 

(7) 

5390 PUT SPRITE H (8) , ( 193-N, 96) , H (8) +2 ,H 

(8) 

5400 A*=INKEY*: IF A*<>"" THEN FOR N=0 TO 
15: PUT SPRITE N , (0 , 209) : NEXT N: CLS: BEEP 
: RETURN 
5410 NEXT N 
5420 PR0V=H<8) 

5430 FOR T=8 TO 2 STEP-1 : H (T) =H (T-l ): NEX 
T T 

5440 H < 1 ) =PROV : GOTO 5310 
5450 ' 

5460 ' MUSI CAS 

5470 ' 

5480 PLAY " T220M5000S2L606D05BL4GGR20L6GA 
B06CL3DDD05B " 

5490 RETURN 

5500 A*="T25504V10M5000S1 1 3GB05DL3GL5GGG 
L3R8DL5DDD04L3R8B05D04BGR2 " 

5510 B*= " T255D3V 1 2M5000S 1 L3GB04DL3GL5GGG 
L3RSDL5DDD03L3R8B04d03BGR2 " 

5520 PLAY A* , B* 

5530 RETURN 

5540. A*= " 1 1 80v 1 0m7000s2o41 5ggggl 4br 1 1 bo5 
1 3dr 101 4dedcl 3do4br 41 SggggI 4br 1 lboSl 3dr 1 
01 Sdedcl 3dr5" 

5550 B*=" 15o4ggggo51 2f #13dr5" 

5560 C*="l 5o4ggggo5dcdo41 3o5eo4r51 4ggggg 
1 lg" 

5570 PLAY A*+B* : PLAY B*+C* 

5580 RETURN 
5590 

5600 ' DEFINICION DE SPRITES 

5610 ' 

5620 RESTORE 5680: FOR M7.=0 TO 6: FOR N7.= l 
TO 32 

5630 READ A*: B*=B*+CHR* < VAL ( "&H»+A*> ) : NE 
XT N7. 

5640 SPRITE* (M7.)=B* 

5650 A*=" " : B*= " " : NEXT M7. 

5660 SPRITE* ( 7) =SPRITE*(1) 

5670 RETURN 

5680 DATA 00 ,00 , 00 , 06 , 02 , OE , OF , IF , IF , 1 F , 

OF, OF, 03, 00, 00, 00, 06, OA, IE , 3C , 58 , FO , FO , E 

C , F6 , FB , FE , FC , F8 , EO , 00 , 00 

5690 DATA 07, OC, 18, 18, 10, OF, 00, 00, 08, 10, 

1 8 , 1 F , 07 , 00 , 00 , 00 , EO , 30 ,10,20, 00 , EO , 30 , 1 

0,10,30,70, FO , CO , 00 , 00 , 00 

5700 DATA 00, OF, 1C, 18, 18, 18, 18, 18, IF, IE, 

18. 18. 30. 30. 60. 00. 00, EO, 70, 10, 10, 10,30,6 
0 , CO , 00 , 00 , 00 , 00 , 00 , 00 , 00 

5710 DATA 00, OF, 1C, 18, 18, 18, 18, 1C, IF, 19, 

18.18.10. 30.00. 00 . 00 , CO , 60 , 20 , 20,20 , 20 , C 
O , 80 , CO , 40 ,60,20,38,00, 00 

5720 DATA 00,01,03,01,01,01,01,01,01,01, 

01.03.07. 03 . 00 . 00.00. 80 , CO , 80 , 80 , 00 , 00 , O 
0,00, 00, 00, 80, CO, 80, 00, 00 

5730 DATA 00, OF ,3F , 13,01 ,01 ,01 ,01 ,01 ,01 , 

01 .03. 07. 03. 00. 00.00, EO,FO, 98, 10,00,00,0 
0,00, 00 , 00 , 80 , CO , 80 , 00 , 00 

5740 DATA 00,07,0E,0C,0C,0C,0F,0F,0C,0C, 
OC , 08 , 07 , 03 , 00 , 00 , 00 , EO , 30 , 00 , 00 , 80 , CO , 0 
0,00,00,60,30, EO , 80 , 00 , 00 
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“ ELJUEGODE 
LOS DETECTIVES 


Autor: Esteban Garcia 
Tipo: Juego 

Participa del 4 q concurso de programas 



I juego de los de- 
H tectives, quedao- 
^^S rigen a este pro- 
grama escrito en BASIC, 
consiste en descubrirtres 
cartas desconocidas (ha- 
bitation, arma, asesino), 
cada una de ellas ex- 
trafda al azar de series de 
nueve. Las 24 cartas res- 
tates, una vez baraja- 
das, son repartidas entre 
tres jugadores, que en es- 
te caso son el operador y 
dos jugadores movidos 
por la maquina. Los juga- 
dores tienen, a su turno, 
que desplazarse por un 
tablero y, de acuerdo a la 
habitation en que se en- 
cuentran.formular una tri- 
ple pregunta: “sospecha”. 

El siguiente jugador debe 
mostrar una de esas tres 
cartas, si la tiene, pero solo al que pre- 
gunta, en caso contrario la obligation es 
del otro jugador. De esta manera se van 
descartando los posibles culpables has- 
ta llegar a poder afirmar con certeza 
cudles son las cartas ocultas, teniendo 
en cuenta siempre la obligation de estar 
en la habitacidn correspondiente. En ca- 
so de no acertar al "afirmar”, se pierde el 
juego. 

Para agilizar el juego y evitar errores en 
el ingreso de datos, el operador participa 
mediate menues controlados por las te- 
clas del cursor y la barra espaciadora o el 
joystick. 

La rutina principal del programa consiste 
en un bucle cerrado, dividido en bloques 
que pueden alternarse segun que juga- 
dor responde, pero volviendo a la se- 
cuencia del juego mediate el flag “H” 
que devuelve la ejecucion al turno que 
corresponde. 

Cada uno de los jugadores controlados 
por la maquina (2)-(Holmes) y (3)-(Poi- 
rot), poseen unasubrutinaquecomprue- 
ba y anota las respuestas. Un contador 
para cada tipo de serie suma los acier- 
tos, poniendose 8 en caso de no obtener 
respuesta de los otros jugadores y no po- 
seerla el tampoco. Cuando la suma de 
los contadores de un jugador es igual a 


24 significa que ha descubierto a los cul- 
pables y estd en condiciones de afirmar. 
Para ello necesita estar en la habitacidn 
en que se cometio el crimen. Se dirige a 
ella mediante una subrutina que calcula 
la ruta mds corta y, una vez alii, va a una 
rutina de "final”. 

Los jugadores (2) y (3) se desplazan por 
el tablero durante el juego por medio de 
rutas almacenadas en "DATAS” y elegi- 
das al azar. 

El jugadorque opera la maquina, al optar 
por "afirmar”, se dirige a una subrutina 
que comprueba la veracidad, y depende 
de ello la rutina final. 

ESTRUCTURA DEL 
PROGRAMA 

140-170: Desviaciones a subrutinas de 
presentacion, instrucciones, carga de 
matrices y dibujo del tablero. 

230-780: JUEGA (1 )-(operador) 
240-260: Define flag, contadores, etce- 
tera 

270-380: Opcidn “sospecha”-”afirma” 
390-540: Selecciona habitacidn 
550-780: Elige arma y sospechoso 
790-990: CONTESTA (2) (Holmes) 
1000-1250: JUEGA(2) (Holmes) 


1260-1450: CONTESTA (3) (Poirot) 
1460-1720: JUEGA (3) (Poirot) 
1730-2120: CONTESTA (3) (operador) 
1730-1910: Menu de respuesta 
1939-2100: Comprueba respuesta 
2110-2120: Cierre del bucle principal 
21 30-2600: Anota respuestas jugadores 
(2) y (3) 

2610-2980: Elige ruta mds corta a habi 
tacion culpable 

2990-3040: Comprueba acusacion juga- 
dor (1) 

3050-3340: Final-Afirmacidn equivoca- 
da 

3370-3650: Final-Afirmacidn cierta 
3660-4000: Instrucciones y selection 
cursor o joystick 
4010-4730: Carga de matrices 
4740-5270: Dibuja tablero 
5280-5670: Caratula presentacion 
5680-6250: DATAS 

LISTA DE VARIABLES 
NUMERICAS 

Q= contador de jugadas. 

R= contador. Fija secuencia de ruta. 

H= flag. Controla que jugador efectuo l< 
pregunta. 

SDs flag. Indica si el operador afirma c 




sospecha. 

Ws stick. 

JOs indica si juega con joystick o cursor. 
C= numero de cuarto culpable. 

ZH= es igual a la suma de los valores de 
la matriz Z. 

KP= es igual a la suma de los valores de 
la matriz K. 

N2= guarda numero de habitacion en 
que se encuentra (2). 

N3= guarda numero de habitacion en 
que se encuentra (3). 

R2= indica el numero de ruta del jugador 

( 2 ). 

R3= indica el numero de ruta del jugador 
(3). 

N= carga indistintamente el valor de N2 
o N3 para uso de la rutina ruta mas cor- 
ta a habitacion culpable. 

YM= coordenada Y del sprite "mano”. 
XI , Y1 s coordenadas X e Y del sprite del 
jugador 1 . 

X2, Y2= coordenadas X e Y del sprite del 
jugador 2. 


10 ' ****************************** 

20 ' * * 

30 ' * EL JUEGG DE LOS DETECTIVES * 

40 ' * * 

50 ' * FOR * 

60 ' * * 

70 ' * ESTEBAN H. GARCIA * 

80 ' * * 

90 ' * 1988 * 

100 * * 

110 ' ****************************** 

120 ' 

130 ' 

140 G0SUB5340: 'PANTALLA PRESENT. 

150 G0SUB3660: ' INSTRUCCIONES 
160 G0SUB4010: 'CARGA MATRICES 
170 G0SUB474O: 'DIB. TABLERO 
180 ' *************************** 

190 ' * * 

200 ' * RUT. PRINCIPAL DE JUEGO * 

210'* * 

220 ' *************************** 

230 ' JUEGA ( 1 ) 

240 Q=Q+ 1 : H= 1 
250 R=R+ 1 s I FR= 1 1 THENR= 1 
260 YM=20: COLOR 1 
270 LINE (150,0) -<250, 135) , 12, BF 
280 L I NE ( 1 50 , 0 ) — < 250 , 1 35 ) ,15,B 
290 PSET <170, 90 ) : PR I NT# 1 , " JUGADA " s PSET ( 1 
80,100) 8 PR I NT # 1 , " N.v " $ Q 
300 PSET (170,60) : PRINT# 1 , "AF I RMAR " 

310 PSET (170,20) :PRINT#1 , "SOSPECHAR" : COL 
OR 15 

320 I FST I CK < JO) = 1 THENYM=YM-40 s SD=0 

330 I FYM=< 20THENYM=20 

340 IFSTICK (JO) =5THENYM= YM+40 : SD= 1 

350 I F YM= >60THENYM=60 

360 PUTSPRITEO, (151,YM-3) ,1,0 

370 IFSTRIG (JO) =0THEN320 

380 PUTSPR I TEO , ( 0 , 209 >,15,0 

390 L I NE ( 1 52 , 10>-<247,80) ,12,BF 

400 PSET < 160,20) :PRINT#1 , "JUEGAS TU: '* 

410 PSET ( 160 , 40) : PR I NT# 1 , "DIRIGETE A" 

420 PSET (160,60) SPRINT# 1 , "UN CUARTO" 

430 W=STICK (JO) : I FW-0THEN440ELSE450 

440 IFSTRIG (JO) “0THEN430ELSE540 

450 IFY1=20THEN47G 

460 I FW= 1 THENY 1 =Y 1 -45 s N 1 =N 1 —3 

470 IFX 1= 120THEN490 

480 IFW=3THENX1=X1+45:N1=N1+1 

490 I FY 1 = 1 1 0THEN5 1 0 

500 IFW=5THENYl=Yl+45:Nl=Nl+3 

510 IFX 1— 30THEN530 

520 IFW— 7THENX 1— X 1 —45: Nl=Ni— 1 

530 PUT SPRITE 1, (XI— 15,Y1> ,1,1 

540 SO* ( 1 ) =F$ < 1 , N 1 ) 

550 ' 

560 ' EL I GE ARMA Y SOSPECHOSO 
570 ' 

580 A*~" ARMA" 


X3, Y3= coordenadas X e Y del sprite del 
jugador 3. 

S= numero RND. 

LISTA DE VARIABLES 
ALFANUMERICAS 

A1$, A2$,A3$= musica. 

A$= Draw. 

B$= mensaje en pantalla presentacibn. 

LISTA DE MATRICES 
NUMERICAS 

z(3)= cuenta los aciertos de cada una de 
las series usadas por jugador (2). 

K(3)= cuenta los aciertos de cada una de 
las series usadas por jugador (3). 
RU(9,10)= en esta matriz se encuentran 
9 rutas posibles de 1 0 elementos cada u- 
na. 

X(9)= guarda las coordenadas X de las 


590 F0RA=2T03 

600 LINE (150,0) -(250, 135) , 12, BF 

610 LINE (150,0) -(250, 135) , 15 ,B 

620 PSET < 1 60 ,10): PR I NT # 1 , " J UEGAS TU: " 

630 PSET <160, 20) : PRINT# 1 , " ELIGE UN" 

640 PSET < 160,30) : PR I NT# 1 , A$ 

650 F0RU=1T09 

660 PSET < 1 66, U* 10+30) :PRINT#1 ,F*CA,U> 

670 NEXTU 

680 I FST I CK < JO) = 1 THENYM=YM- 1 0 : FORT™ 1 T050 
: NEXT T 

690 I FYM=< 40THENYM=40 

700 I FST I CK < JO > =5THEN YM= YM+ 1 0 : FORT- 1 T050 
: NEXT T 

710 IF YM=>120 THENYM=120 
720 PUT SPRITEO, <150,YM-3) , 1 ,0 
730 IFSTRIG < JO) =0THEN680 
740 S0$ (A)=F$ (A, (YM-30) /10) 

750 A$= " SOSPECHOSO " 

760 NEXTA 

770 PUTSPR I TEO , < 0 , 209 >,1,0 
780 IFSD=1THENG0T0 2980 
790 ' 

800 'CONTEST A (2) 

810 ' 

820 I FH=2THENG0T02320 

830 LINE <150,0) -<250, 135) ,12,BF 

840 LINE < 150,0) — <250, 135) , 15, B 

850 PSET < 1 63 , 20 ) : PR I NT# 1 , " SHERLOCK " 

860 PSET < 163,30) : PR I NT#1 , " HOLMES" 

870 PSET < 1 63 , 40 ) : PR I NT# 1 , " CONTESTA " 

880 FORU= 1 T03 : FORA= 1 T08 

890 IFS0$<U)=J2*<A)THENG0T0940 

900 NEXTA: NEXTU 

910 PSET ( 163 ,60) : PR I NT# 1 , "NO TENGO" 

920 PSET <163,70) : PRINT# 1 , "NINGUNO" 

930 GOSUB 1250 

940 PSET < 163,55) : PRINT# 1 , "TENGO" 

950 I FH< > 1 THEN970 

960 PSET < 163,70) :PRINT#1 ,J2*<A> 

970 I FH=3THENG0SUB 2470: GOTO 240 
980 IFSTRIG < JO) =0THEN980 
990 ' 

1000 'JUEGA (2) 

1010 ' ' 

1020 H=2: ZH=Z < 1 ) +2 <2) +Z (3) 

1030 IFZH=24THENN=N2: GOTO 2620 
1040 N2=RU <R2 , R) 

1050 S0$(1)=F*<1 ,N2) 

1060 F0RA=2T03 
1070 T=INT (RND (-TIME) *9) +1 
1080 IFG2$ < A , T) =" I "THEN 1070 
1090 S0$ (A) =F$ < A , T ) 

1100 NEXTA 

1110 X2=X (N2) : Y2=Y (N2) 

1120 PUT SPRITE2, (X2,Y2> , 1 ,2 
1130 LINE < 150,0) - <250, 135) , 12, BF 
1140 LINE (150,0) -<250, 135) ,15,B 
1 1 50 PSET ( 1 63 , 20 ) : PR I NT# 1 , " SHERLOCK " 

1160 PSET ( 163,30) :PRINT#1 , " HOLMES" 

1170 PSET < 163,40) :PRINT#1 ," JUEGA:" 


habitaciones. 

Y(9)= guarda las coordenadas Y de las 
habitaciones. 

MATRICES 

ALFANUMERICAS 

S0$(3)= carga las sospechas. 

L$(27)= carga las 27 cartas. Despues de 
descontar los 3 culpables, reparte mez- 
cladas 8 cartas a cada jugador. 

F$(3,9)= carga las 27 clasificadas en se- 
ries: habitacion, arma, sospechoso. 
G2$(3,9)s similar a F$. De ella vaborran- 
do las cartas que le muestran al jugador 
(2). 

G3$(3,9)= similar a F$. De ella va borran- 
do las cartas que le muestran al jugador 
(3). 

C$(3)= almacena los culpables. 

J1$(8)= almacena cartas jugador (1). 
J2$(8)= almacena cartas jugador (2). 
J3$(8)= almacena cartas jugador (3). 


1180 LINE <160,48) -<230, 59) ,11 ,BF: COLOR 1 
1190 IFZH=24ANDN2=CTHENPSET < 163,50) : PR IN 
T#1 , "AFIRMO" : GOTO 1210 
i 200 PSET < 1 63 , 50 ) : PR I NT# 1 , " SOSPECHO " 

1205 COLOR 15 

1210 PSET < 163,70) : PRINT#1 , S0$ < 1 ) 

1220 PSET <163,80) : PRINT#1 , SO* (2) 

1230 PSET < 163,90) : PRINT# 1 ,S0*<3> 

1240 I F ZH=24 ANDN2=CTHENF ORT = 1 T03000 : NEXT 
T: GOTO 3350 

1250 IFSTRIG < JO )=OTHEN 1250 
1260 'CONTESTA (3) 

1270 ' 

1280 IFH=3THENGQT0 2550 
1290 LINE (150,0) -<250, 135) ,12,BF 
1300 L I NE < 1 50 , 0 ) — < 250 , 1 35 ) , 1 5 , B 
1310 PSET ( 1 63 , 20 ) : PR I NT# 1 , " HERCULES " 

1320 PSET< 163,30) :PRINT#1 ," POIROT" 

1330 PSET (163,40) : PRINT#1 , "CONTESTA" 

1340 F0RU=1T03iF0RA=1T08 
1 350 I FSO* <U) =J3$ (A) THENGOTO 1 400 
1360 NEXTA: NEXTU 

1370 PSET ( 1 63 , 60 > : PR I NT # l , " NO TENGO" 

1380 PSET (163,70) : PRINT#1 , "NINGUNO" 

1390 GOTO 1720 

1400 PSET < 1 63 , 55 > : PR I NT # 1 , " TENGO" 

1410 IFHOl THEN 1430 

1420 PSET < 163,70) : PR I NT# 1 , J3$ <A) 

1430 I FH=2THENG0SUB2 1 30 
1440 I FH=1 THENGOTO 980 
1450 IFSTRIG < JO) =0THEN1 450 
1460 ' 

1470 'JUEGA (3) 

1480 ' 

1490 H=3 ; KP=K < 1 ) +K < 2 ) +K < 3 ) 

1 500 I FKP=24THENN=N3 : G0T02620 
1510 N3=RU <R3,R) 

1520 S0S(1)=F*<1,N3> 

1530 F0RA=2T03 
1540 T=INT (RND(-TIME) *9) +1 
1550 IFG3$ ( A , T) =" I "THEN 1540 
1560 S0$ < A ) — F$ < A , T ) 

1570 NEXTA 

1580 X3=X <N3> : Y3=Y (N3) 

1590 PUT SPRITE3, < X3, Y3) ,1,3 
1600 LINE (150,0) -<250, 135) ,12,BF 
1610 LINE (150,0) -<250, 135) , 15,B 
1 620 PSET ( 1 63 , 20 ) : PR I NT# 1 , " HERCULES " 

1630 PSET < 163,30) :PRINT#1 , " POIROT" 

1640 PSET ( 163,40) : PR I NT# 1 , " JUEGA:" 

1650 LINE ( 160 , 48) - <230 , 59) , 1 1 ,BF : COLOR 1 
1 660 I FKP-24ANDN3=CTHENPSET < 1 63 , 50 ) : PR I N 
T#1 , "AFIRMO ": GOTO 1680 
1670 PSET (163,50) :PRINT#1 , "SOSPECHO" 

1675 COLOR 15 

1680 PSET < 163 ,70) : PRINT#! , SQ$ ( 1 ) 

1690 PSET ( 163 , 80) : PRINT#1 ,S0* <2) 

1700 PSET < 1 63 , 90 ) : PR I NT # 1 , SO-fc ( 3 ) 

1710 I FKP=24ANDN3=CTHENF0RT= 1 T03000: NEXT 
T : GOTO 3350 

1720 IFSTRIG (JO) =0THEN1720 
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1730 ' 

1740 'C0NTESTA<1> 

1750 ' 

1760 I FH= 1 THEN980 

1770 LINE <150,0) -(250, 135) ,12,BF 

1780 LINE (150,0) - <250, 135) , 15, B 

1790 PSET < 1 53 , 20 ) : PR I NT # 1 , " CUAL TIENES?" 

1800 PSET ( 166 , 40) : PRINT# 1 , "NO TENGO" 

1810 PSET < 166,60) : PR I NT# 1 , S0$ < 1 ) 

1820 PSET ( 166 , 80) : PR I NT# 1 , S0$ (2) 

1830 PSET <166, 100) : PRINT# 1 ,S0$<3) 

1840 YM=40 

1 850 I FST I CK < J 0 ) ~ 1 THLNYM= YM-20 : FORT= 1 T05 
0: NEXTT 

1860 I F YM=< 40THENYM=40 

1 870 I FST I CK < JO ) =5THENYM= YM+20 : FORT= 1 T05 
0: NEXTT 

1880 I F YM= > 1 OOTHENYM= 1 00 
1890 PUT SPRITEO, <150, YM-3) , 1 ,0 
1900 IFSTRIG < JO) =0THEN1850 
1910 PUT SPRITEO, <0,209) ,0,0 
1920 ' 

1930 ' COMPROBAC I ON RESPUESTAS 
1940 LV-YM/20-1 

1950 ON LV GOSUB 1960, 1990,2020,2050 
1960 F0RU=1T03: F0RA=1 T08 
1970 IFSO$ <U) =J 1$ < A) THEN2080 
1980 NEXTAs NEXTUs GOTO 2100 
1990 FORA= 1 T08 

2000 IFSO$ < 1 ) =J 1 $ ( A) THEN21 10 
2010 NEXTA: GOTO 2080 
2020 F0RA=1T08 

2030 IFSO* <2)=J1$(A)THEN2110 
2040 NEXTAsGOTO 2080 
2050 FORA- 1T08 

2060 IFSO$ <3) =J 1$ < A) THEN21 10 
2070 NEXTAsGOTO 2080 

2080 LINE < 152, 1 18) -<245, 130) ,ll,BFsPSET< 
155, 120) s COLOR 1 : PR I NT# 1 , "FI JATE BIEN" s F 
ORT— lT0250s NEXTT sLINE < 152, 1 18) — <245, 130) 

, 12, BF: COLOR 15 
2090 GOTO 1850 
2100 GOTO 800 

2110 IFH=2THENG0SUB2240s GOTO 1470 
2120 IFH=3THENG0SUB2390: GOTO 240 
2130 ' 

2140 'RUTINA ANOTA RESPUESTAS 
2150 ' 

2160 'SI TIENE (3) LO QUE PIDI0<2) 

•2170 ' 

2180 F0RU=1T03:F0RB=1T09 

2190' IFG2* <U, B) =J3$ < A) THENG2* <U,B) = " I •• : G 
OTO 2210 

2200 NEXTBs NEXTU 

2210 Z <U)=Z (U) +1 : IFZ <U) >8THENZ <U)=8 
2220 RETURN 
2230 ' 

2240 'SI TIENE < 1 ) LO QUE PIDI0<2) 

2250 ' 

2260 F0RU=lT03sF0RB=lT09 

2270 IFG2* <U , B) =J 1* < A) THENG2* (U , B) = " I " : G 
OTO 2290 

2280 NEXTBs NEXTU 

2290 Z<U)=Z<U)+ls IFZ(LI) >8THENZ <U> =8 
2300 RETURN 
2310 ' 

2320 ' NO TIENE NAD IE LO QUE PIDE<2) 

2330 ' 

2340 F0RU=1T03 

2350 IFSO$ <U> =C$ <U) THENZ <U) =8 
2360 NEXTU 
2370 GOTO 1450 
2380 ' 

2390 'SI TIENE < 1 ) LO QUE PIDI0<3) 

2400 ' 

2410 F0RU=lT03s FQRB=1T09 

2420 I FG3$ < U , B ) = J 1 $ ( A ) THENG3* < U , B ) = " I " s G 
OTO 2440 

2430 NEXTBs NEXTU 

2440 K <U) =K (U) +1 : IFK(U) >8THENK<U)=8 
2450 RETURN 
2460 ' 

2470 'SI TIENE (2) LO QUE PIDI0<3) 

2480 ' 

2490 F0RU=1T03:F0RB=1T09 

2500 I FG3$ < U , B > = J2$ < A ) THENG3* < U , B ) = " I" s G 
OTO 2520 

2510 NEXTBs NEXTU 

2520 K <U>— K <U) +1 s IFK(U) >8THENK<U)=8 
2530 RETURN 
2540 ' 

2550 'NO TIENE NAD IE LO QUE PIDE<3) 

2560 ' 

2570 F0RU=1T03 

2580 IFS0*<U)=C$<U)THENK<U>=8 
2590 NEXTU 
2600 GOTO 240 
2610 ' 

2620 ' ELIGE RUT A MAS CORTA A "C" 

2630 ' 

2640 IFN=CTHENGOTO 2920 


2650 IFN<CTHENGOTO 26 £LSE2670 3510 L0CATE13, 16s PRINTC* <3) 

2660 ON N GOTO 2680,2700,2720,2730,27^0, 3520 L0CATE9 ,18; PR I NT " NO EXISTE EL CRIME 
2770,2780,2790 N" 

2670 ON N GOTO 0,2800,2810,2820,2830,285 3530 LOCATE 14, 19s PR I NT " PERFECTO " 

0,2870,2880,2900 3540 F0RA=1T02000: NEXTA 

3550 F0RA=6T030 s F0RB=2T0 1 9 s LOCATEA , B : PR I 


2680 IFC=40RC=7THENN=4ELSEN=2 

2690 GOTO 2920 

2700 I FC=3THENN=3ELSEN=5 

2710 GOTO 2920 

2720 N=6s GOTO 2920 

2730 IFC=7THENN=7ELSEN=5 

2740 GOTO 2920 

2750 I FC=6THENN=6ELSEN=8 

2760 GOTO 2920 

2770 N=9s GOTO 2920 

2780 N=8s GOTO 2920 

2790 N=9 : GOTO 2920 

2800 N=1 s GOTO 2920 

2810 N=2: GOTO 2920 

2820 N= Is GOTO 2920 

2830 I FC=4THENN=4ELSEN=2 

2840 GOTO 2920 

2850 IFC=3THENN=3ELSEN-5 

2860 GOTO 2920 

2870 N=4 s GOTO 2920 

2880 IFC=7THENN=7ELSEN=5 

2890 GOTO 2920 

2900 IFC=60RC=3THENN=6ELSEN=8 
2910 GOTO 2920 
2920 IFH=2THENN2=Ns GOTO 1050 
2930 IFH=3THENN3=Ns GOTO 1520 
2940 ' 

2950 ' 

2960 ' 

2970 ' 

2980 ' 

2990 'COMPRUEBA ACUSACION JUG.<1) 

3000 ' 

3010 F0RA=1 T03 

3020 I FSO$ < A ) < >C $ < A ) THEN3050 
3030 NEXTA 
3040 GOTO 3350 

3050 SCREENO, 0,0:WIDTH36: COLOR 15,4,4 
3060 A 1 * - " T 1 50S0M6000L8 " 

3070 A2$="05C4C. C16. C4D+. D16. D. C16. C- 04B 
16.05C2" 

3080 A3$= " 04C4C . C 1 6 . C4D+ . D 1 6 . D . C 1 6 . C . 03B 
16.04C2" 

3090 PLAYA1$,A1*:PLAYA2$,A3* 

3100 PLAYA3* 


NTCHR* <32) : NEXTB, A 
3560 PLAYA2$sPLAYA3$ 

3570 I FH= 1 THENL0CATE1 0,4 s PR I NT "TU SAGAZ 
CEREBRO" 

3580 I FH=2THENL0CATE 1 O , 4 : PR I NT " SHERLOCK 
HOLMES’* 

3590 I FH=3THENL0CATE 1 O , 4 : PR I NT ” HERCULES 
POIROT" 

3600 L.0CATE8 ,8: PR I NT "HA SI DO EL PRIMERO 
EN" 

3610 L0CATE8, 10s PRINT "DESCUBRIR LA VERDA 
D" 

3620 L0CATE8, 12; PRINT"EN " ; Q; "MOVIMIENTO 
S" 

3630 L0CATE8, 14; PRINT" ! ! FELICITACIONES ! ! 

3640 L0CATE8, 17: PRINT" COTRA PARTIDA?<S/N 
) " 

3650 GOTO 3310 
3660 ' 

3670 ' ***************************** 

3680 ' * * 

3690 '* INSTRUCCIONES * 

3700 ' * * 

3710 ' ***************************** 

3720 ' 

3730 KEYOFF ; SCREENO , O , O s WI DTH36 ; CLS 
3740 LOCATE 1 8 , 0 : PR I NT " I NSTRUCC I ONES " 

3750 FOR A= 1 T036 ; PR I NTCHRS < 1 ) +CHR* < 87 ) ; ; N 
EXT 

3760 LOCATEO, 2s PRINT" En despiadada com 
petencia con los -famosos detectives MIS 
TER HOLMES y MONSIEUR POIROT se debe es 
cl arecer el horrendo crimen de 1 a MANSIO 
N ADAMS averiguandos " 

3770 PRINT; PRINT" 1 ) La HABI TACION del cr 
i men" 

3780 PRINT ”2) El ARMA homicida" 

3790 PR I NT ”3) El ASESINO. " 

3800 PRINT" Cada uno de los competidores 
tiene una lista con 8 diferentes coarta 
dasque descartan la posible culpabildad 
y que deberan comparar mediante sa-gaces 
preguntas. " 


3110 FOR A=5T03 1 : LOCATEA , 1 : PR I NT " f " : NE X T 
3 1 20 F0RA=5T03 1 ; LOCATEA , 20 : PRINT" C" ; NEXT 
3 1 30 FORA= 1 T020 s LOCATES , A: PR I NT "f" : LOCAT 
E31 , A: PRINT" f" : NEXT 

3140 L0CATE9,3s PRINT" ! ESTAS EQUIVOCADO!” 
3150 L0CATE7 , 5 : PR I NT " EN REAL I DAD EL CRIM 
EN" 

3160 L0CATE9 ,6; PRINT "FUE EJECUTADO EN: " 
3170 L0CATE13 , 8: PRINTC$ < 1 ) 

3180 L0CATE8 ,10s PR I NT " EL ARMA EMPLEADA F 
UE: " 

3190 L0CATE13, 12s PRINTC* (2) 

3200 LOCATE 11,14; PR I NT " EL ASESINO FUE; " 
3210 L0CATE13, 16: PRINTCS (3) 

3220 F0RA=1T02000: NEXTA 

3230 F0RA=6T030: F0RB=2T019: LOCATEA, B: PR I 
NTCHR$<32> : NEXTB, A 

3240 L0CATE7 , 4 : PR I NT " TU ACUSACION ES FAL 
SA" 

3250 L0CATE7 , 6 : PR I NT " Y POR LO TANTO QUED 
AS" 

3260 L0CATE7 , 8 : PR I NT " FUERA DE LA COMPETE 
N-" 

3270 L0CATE7 ,10: PR I NT "Cl A. " 

3280 L0CATE7 , 12s PRINT"LO LAMENTO. " 

3290 L0CATE8, 14: PRINT" rOTRA PARTIDA?(S/N 
) " 

3300 PLAYA2* , A3* : PLAYA2* , A3* 

3310 A*— INKEY*: IFA*=" "THEN3310 
3320 IF A*= " S " ORA*= " s " THENRUN 1 60 
3330 I F A*= " N M ORA*= " n " THENEND 
3340 GOTO 3310 
3350 ' 

3360 'FINAL 

3370 SCREENO, 0,0: COLOR 15,4,4 
3380 A 1 *= " T200S0M2000V 12" : PLAYA1* 

3390 A2*= " 05A2F+ . G8AD2E8F+8G8A8GF+E2 . " 
3400 A3*= " 05F +2D . E8F2D2C+8D8E8F+8EDC+2" 
3410 PLAYA2* : PLAYA3* 

3420 F0RA=5T03 1 : LOCATEA, 1 s PR I NT "f": NEXT • 
3430 FOR A=5T03 1 : LOCATEA , 2 1 : PR I NT " f " : NE X T 
3440 FORA= 1 T02 1 a LOCATES , A : PR I NT " f " : LOCAT 
E31 , A: PRINT" C" : NEXT 

3450 LOCATE 12,4: PR I NT " ! ! ES CIERTO!!" 

3460 L0CATE7 ,6: PR I NT "EL CRIMEN FUE EJECU 
TADO" 

3470 LOCATE 13, 8s PRINT"EN: " C* < 1 ) 

3480 L0CATE8 ,10: PR I NT "EL ARMA EMPLEADA F 
UEs " 

3490 L0CATE13 , 12: PRINTC* (2) 

3500 LOCATE 11 , 14: PR I NT "EL ASESINO FUE:" 


3810 PRINT"Cada jugador a su turno avent 
ura unatriple sospecha,dirigiendose a la 
HABITACION correspond! ente siendo oblig 
acion del jugador que sigue admitirsi fi 
gura en su lista uno de los 3" 

3820 PRINT"nombres , acl arando cual es,per 
o solo al que le pr egunt " . PRESIONE SPACE 

3830 A*= I NKEY* : I FA*< > ” ” THEN3830 
3840 CLS:PRINT”En caso de no tener ningu 
no, la obli-gaci^n es del jugador siguien 
te. ” 

3850 PRINT"A1 conocer la soluci"n y una 
vez que se est en la HABITACION que cor 
responde se afirma la cul pabi 1 idad , qued 
ando fuera del juego de no ser cierto. " 
3860 PRINT"Si tu memoria no es de el e-fan 
te usa papel y lap/z." 

3870 LOCATE 1 1 , 1 3 s PR I NT " SELECC I ONE " 

3880 LOCATE 1 1 , 1 5 : PR I NT " CURSOR " 

3890 LOCATE 1 1 , 17s PRINT" JOYSTICK < 1 ) " 

3900 LOCATE 1 1 , 19: PRINT" JOYSTICK < 2) " 

3910 LOCATE 10, 21 : PRINT "PRESIONE SPACE" 
3920 Y=15: J0=0 

3930 W=ST I CK < 0 ) : L0CATE9 , Y : PR I NT " " 

3940 I FW= 1 THENY=Y-2 : I FY-< 1 5THENY - 1 5 
3950 IFW=1THENJ0=J0-1 : IFJ0=<0THENJ0=0 
3960 I FW=5THENY= Y+2 : I FY= > 1 9THENY= 1 9 
3970 IFW=5THENJ0=J0+1 : IFJ0=>2THENJ0=2 
3980 LOC ATE9 , Y : PR I NT " — > " 

3990 I FSTR I G < O ) =OTHENFORT= 1 TO 1 00 : NEX T : GO 
TO 3930 
4000 RETURN 

4010 ' ***************************** 

4020 '* * 

4030 '* CARGA DE MATRICES * 

4040 ' * * 

4050 ' ***************************** 

4060 ' 

4070 DIML-fc <27) ,F*<3,9) ,G2S<3,9) ,G3#<3,9) 

, RU < 9 , 1 0 ) : REST0RE5740 
4080 F0RA=1T027 
4090 READ D^ 

4100 Lf < A) =D$ 

4110 NEXT A 
4120 REST0RE5740 
4130 F0RA=1T03:F0RU=1T09 
4140 READD^ 

4150 F^ < A , U ) =D^ : G2* ( A , U) =D$ : G3$ < A , U ) =D$ 
4160 NEXTU: NEXTA 
4170 ' 
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APLICACIONES 

' ... I 

. . ■ 


DISENO DE 
CARACTERES 

Mostramos como una parte de la memoria almace- 
na los caracteres. Su comprension nos servira 
cuando necesitemos disenar alguna letra o simbo- 
lo en particular. 


flf 1 asmicrocomputadorasquehan 
adoptado la norma MSX en el 
■i mundo poseen una memoria 
RAM dedicada exclusivamente a alma- 
cenar los datos relativos a la pantalla. De 
tal modo TEXTOS (codigos de los carac- 
teres y sus disenos), GRAFICOS (ima- 
gen de pantalla, colores y disenos) y 
SPRITES (disenos y 
atributos) son con- 
servadosenladeno- 
minada VRAM o Me- 
moria RAMde VIDE- 
O. 

Esta memoria extra 
libera el resto de la 
RAM comun de esa 
tarea, y agrega al 
sistema 16 Kbytes 
en la TALENT MSX 1 
y nada menos que 
128 Kbytes en la TA- 
LENT MSX 2 TUR- 
BO, llevandolas a un 
total de 80 Kbytes en 
el primer caso, y a 
256 Kbytes en el se- 
gundo. 

La memoria VRAM 
no es manejada di- 
rectamente por el microprocesador 
Z80A, sino por un chip especffico de vi- 
deo que recibe el nombre de VDP (Vide- 
o Display Processor), el TMS 9919 en la 
MSX 1 y el TMS 9938A en la MSX 2. 

El hecho de tener un chip dedicado al 
procesamiento de las salidas por panta- 
lla no solo libra al Z80A de este pesado 
trabajo, sino que ademas permite un ma- 
nejo de GRAFICOS y SPRITES de exce- 
lentes prestaciones y sumamente simple 
de realizar. Esto le otorga al equipamien- 
to M$X especiales aptitudes para su uso 
en el bmbito educativo tanto en nivel pri- 
mario con el uso de ACTORES en LO- 
GO, cuanto en el secundario con los 
SPRITES del BASIC. 

EL MODO 0 DE TEXTOS 

En el modo 0 de textos (SCREEN 0), la 


TALENT puede manejar caracteres con 
dos colores (sobre un total de 16 en la 
MSX 1 o sobre 51 2 en la MSX 2), uno pa- 
ra el frente y otro para el fondo de la pan- 


A modo de desafio y con el objeto de 
desentumecer un poco las neuronas y 
practicar el sistema de numeracion bi- 
nario con que se generan los disenos 
de los caracteres, les ofrecemos la o- 
portunidaddeinteractuarcon nosotros 
completando y envibndonos una copia 
(si no quieren cortar la revista) del ejer- 
cicio que proponemos en lafigura ane- 
xa. Entre las propuestas correctas sor- 
tearemos un libro. El cierre de la com- 
petencia es el 31/12/88. 

Laactividad consiste en completarcon 
unos o simplemente pintar (como estb 
en el ejemplo) los casilleros corres- 
pondientes al numero BINARIO cuya 
equivalence en DECIMAL figura a su 
lado. 

Para aquellos que en forma habitual u- 
tilicen el redisefiode caracteres en sus 


talla. La resolucibn maxima es de 40 co- 
lumnas (u 80 en la MSX 2) por24filas, es 
decir que podemos llegar a ver hasta 40 
caracteres en cada una de las 23 o 24 fi- 
las. 

En este modo de pantalla no pueden tra- 
zarse graficos con los comandos especf- 
ficos (LINE, CIRCLE, PSET, etcetera) ni 
utilizarse SPRITES, aunque con un poco 
de imaginacion pueden hacerse ciertos 
dibujos simples con lo caracteres prede- 
fines, o simular alguna movilidad cam- 
biandolos de posicibn con LOCATES y 
PRINTS. 

La VRAM tiene dos zonas destinadas al 
manejo de este modo 0 de pantalla: a) la 


programas, sugerimos preparar una 
tabla con los 256 patrones BINARIOS 
posibles para facilitar esa tarea. En el 
ejemplo presentado, ya tenemos los 
diecisbis primeros nbmeros. 

En la parte operativa, recomendamos, 
al redisefiar una letra o sfmbolo, no per- 
der de vista el hecho de que en el mo- 
do 0 de textos solo se utilizan las seis 
primeras columnas de cada carbcter, 
de las cuales la sexta se reserva como 
separacion, lo que produce un solapa- 
miento de las dos ultimas con las dos 
primeras del carbcter siguiente. 

Solo nos resta sugerirles que nos envf- 
en por correo sus propios desarrollos 
sobre el tema para que podamos com- 
partirlos con todos nuestros lectores, y 
asf contribuiral engrandecimiento de la 
legibn de usuarios MSX. 


UNA PROPUESTA EDUCATIVA 
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FI6URA 1 
VRAH 


1TA1LA »E PISEwQ 3£ CARACTERESl 


2848 


TAILA 


4095 


16383 



4895 


VPE£K<2848*8tASC< *A‘ >+l> 


32 


88180868 

88 


81818880 

136 


18881888 

136 


18081808 

248 


11111880 

136 


18881860 

136 

18001080 

8 

88888008 


La lonyit«d de la VRAH 
16 Kbytes * 1824 = 1638< 
se refiere al aodelo 1 
de las T ALEUT HSX 


denominada TABLA DE IMAGEN DE 
PANTALLA y b) la TABLA DE GENERA- 
CION DE DISEftOS o PATRONES DE 
CARACTERES. 

TABLA DE IMAGEN DE 
PANTALLA 

En asta tabla, qua ya comentamos an un 
artfculo en LOAD de octubre del 87 (Nu- 
mero 1 8), se almacenan los cbdigos AS- 
CII de los 960 caracteres que constituyen 
la cuadricula en que podemos dividir la 
pantalla (40 columnas x 24 filas). 

La direccion de comienzo de la tabla pue- 
de conocerse por medio del comando 
BASE(O) o mediante VDP(2)*1024, en 
ambos casos precedidos por un PRINT; 
es 0, y se extiende, obviamente, hasta la 
direccibn 959 para completar los 960 
bytes necesarios. 

Solo agregaremos sobre esta tabla que 
si deseamos conocer - en un programa - 
cual es el caracter que estb ocupando un 
lugar determinado en la pantalla, tene- 
mos el operador VPEEK(N), siendo N un 
numero natural dentro del rango determi- 
nado porOy 959. Por ejemplo, para cono- 


cer el caracter que ocupa la tercera co- 
lumna de la cuarta fila: — > PRINT VPE- 
EK(3*40+4). Si queremos colocar un ca- 


racter en una celda determinada de la 
pantalla, recurriremos a VPOKE fila * 40 
+ columna, codigo ASCII del caracter. 


CONCURSO 


EL PROGRAMADOR DEL ANO 



l 2 PREMIO: U$S 400 
2 - PREMIO: U$S 200 
3 2 PREMIO: U$S 100 


DIPLOMAS PARA 
TODOS LOS 
CONCURSANTES 


LAS BASES SE PUEDEN ENCONTRAR EN LA REVISTA K64 
EL CIERRE DE RECEPCION DE TRABAJOS SERA EL 30/9/ 88 
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APLICACIONES 



TAB LA GENERADORA 
DE DISENOS O 
PATRONES DE LOS 
CARACTERES 

En esta tabla de la VRAM, se almacenan 
los patrones de los 256 caracteres dispo- 
nibles en el modo 0 de las MSX. Estos pa- 
trones son la informacibn que el VDP ne- 
cesita para 'encender' en la pantalla los 
pixeles (o puntos) que configuran el dise- 
no con que identificamos cada una de las 
letras, numeros o smnbolos. 

Cada uno de los caracteres esta definido 
por ocho bytes. Elio determina una longi- 
tud o espacio de memoria de 2.048 bytes 
(256 caracteres x 8 bytes cada uno). (Ver 
pantalla 1) 

La direccibn de comienzo de esta tabla 
podemos conocerla tipeando PRINT BA- 
SE (2) o bien PRINT VDP (4) *2048. Es 


2048 en SCREEN 0, y se extiende hasta 
la direccibn 4095 inclusive. 

Para poder comprender mejor cbmo 
nuestra amiga cibernetica almacena un 
caracter (letra, numero, slmbolo o espa- 
cio vaclo), imaginemos que cada letra es 
dibujada en una cuadricula de 8 filas 
(bytes) por 8 columnas (bits). Cada con- 
junto de 8 bits (1 o 0) horizontales, pasa- 
dos al sistema numerico decimal, consti- 
tuye un byte. Ocho bytes consecutivos 
forman el patron numerico con que la 
MSX ‘conoce’ un caracter. Poco rombn- 


tico, ^no?. 

Para poder conocer los 8 bytes de un ca- 
rbcter en particular, debemos ubicar la di- 
reccibn inicialde la Tabla de Disenosy a- 
plicar sucesivos PRINT VPEEK(...), y pa- 
ra ello utilizamos la formula: 2048 + AS- 
CII * 8. Para la letra ‘A’, como ejemplo, 
2048 + 65 * 8 = 2568. 

Notemos que la letra ‘A’ para nuestro e- 
quipo es la secuencia 32 801 36 1 36 248 
136 136 0. Y-.^cbmo sera que almace- 
namos “nosotros” el caracter ‘A’ en nues- 
tro cerebro...? 

Para facilitar aun mbs la compren- 
sion del tema y a modo de utilitario, 
preparamos un programa que nos 
da toda la informacibn necesaria 
para cada caracter, incluyendo las 
direcciones de memoria, el valor al- 
macenado en cada uno de los 8 
bytes en los sistemas decimal y bi- 
nario y el diseiio grbfico de pantalla 
e impresora. (Ver listado 1) 

Gustavo O. Delfino 


direccibn 


dec binario 


PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 
PRINT VPEEK 


(2568 + 0) 
(2568 + 1) 
(2568 + 2) 
(2568 + 3) 
(2568 + 4) 
(2568 + 5) 
(2568 + 6) 
(2568 + 7) 


32 00100000 
80 01010000 
136 10001000 
10001000 
11111000 
10001000 
10001000 


: 136 
: 248 
> 136 
: 136 


= 0 00000000 


100 

REM ************************ 

360 

REM 


V 

1 OR 

REM * 

* 

365 

LET DI=2048 + 152 * 8 

595 

LOCATE 0,7: PRINT ’’ZVQVVWQVW 

110 

REM * DISEIIO DE CARACTERES 

* 

370 

FOR D = DI TO DI + 7 

VWVWVWW WVWVWWVWWWVWVVW i 

115 

REM * 

* 

375 

READ N 

600 

REM 

120 

REM ************************ 

380 

VPOKE D , N 

605 

LOCATE 1,6 : PRINT KS ; 

125 

REM 


385 

NEXT D 

610 

LOCATE 3 : PRINT USING 

130 

REM Por Gustavo O. Delfino 

390 

DATA fcbOOOOOOOO 


; ASC(KS) ; 

135 

REM 


395 

DATA &b01110000 

615 

LOCATE 7 

140 

REM * AS I GNAC I ONES * 


400 

DATA AblOOOlOOO 

620 

FOR B = 0 TO 7 

145 

REM 


405 

DATA fcblOOOlOOO 

625 

LET C = VPEEK (DI+B) 

150 

SCREEN 0 


410 

DATA SrblOOOlOOO 

630 

PRINT STRS <C) ; 

155 

LET DI = 2048 + 191 * 8 


415 

DATA &b01 1 10000 

635 

NEXT B 

160 

FOR D = DI TO DI + 7 . 


420 

DATA SrbOOOOOOOO 

640 

LOCATE 0,9: PRINT ” b dir de 

165 

READ N 


425 

DATA SibOOOOOOOO 

c 

binario pantalla impresora” 

170 

VPOKE D , N 


430 

REM 

645 

FOR B = 0 TO 7 

175 

NEXT D 


435 

LET DI=2048 + 158 * 8 

650 

LET FS = ”00000000” 

180 

DATA Stbllllllll 


440 

FOR D = DI TO DI + 7 

655 

LET C = VPEEK CD I+B) 

185 

DATA fcblOOOOOOO 


445 

READ N 

660 

LOCATE 0 , 1 1+B : PRINT B ; 

190 

DATA fcblOOOOOOO 


450 

VPOKE D , N 

665 

LOCATE 2 : PRINT DI+B ; 

195 

DATA &bl0000000 


455 

NEXT D 

670 

LOCATE 8 : PRINT USING 

200 

DATA &blOOOOOOO 


460 

DATA &b00110000 


** » C ; 

205 

DATA fcblOOOOOOO 


465 

DATA &b01001000 

675 

MIDS <FS , 9-LEN (BINS <C) > ) = 

210 

DATA fcblOOOOOOO 


470 

DATA &b01001000 


B I NS (C ) 

215 

DATA &bllllllll 


475 

DATA &bllllllOO 

680 

LOCATE 12 : PRINT FS ; 

220 

REM 


480 

DATA &b01001000 

685 

LOCATE 21 

225 

LET DI=2048 + 217*8 


485 

DATA aibllllllOO 

690 

FOR BIT = 1 TO 8 

230 

FOR D = DI TO DI + 7 


490 

DATA &b01001000 

695 

IF MIDS (FS , BIT, 1) = ”0” 

235 

READ N 


495 

DATA &b00000000 


THEN PRINT CHRS <191 ) ; 

240 

VPOKE D , N 


500 

REM 


ELSE PRINT CHRS (200) ; 

245 

NEXT D 


505 

REM * ACOND I C I ONAMI ENTO * 

700 

NEXT BIT 

250 

DATA fcblOOOOOOO 


510 

REM 

705 

PRINT CHRS (217) ; 

255 

DATA &bl0000000 


515 

WIDTH 40 

710 

LOCATE 30 

260 

DATA &bl0000000 


520 

KBY OFF 

715 

FOR BIT = 1 TO 8 

265 

DATA &bl0000000 


525 

COLOR 1 , 3 

720 

IF MIDS (FS, BIT, 1) = ”0” 

270 

DATA fcblOOOOOOO 


530 

REM 


THEN PRINT CHRS (152) ; 

275 

DATA fcblOOOOOOO 


535 

REM * RUTINA OPERATIVA * 


ELSE PRINT CHRS (155) ; 

280 

DATA fcblOOOOOOO 


540 

REM 

725 

NEXT BIT 

285 

DATA &bl0000000 


545 

CLS 

730 

NEXT B 

290 

REM 


550 

LOCATE 1,2 : PRINT ’’Pulse 

735 

LOCATE 0,20: PRINT ’’Pulse cua 

295 

LET DI=2048 + 155 * 8 



cualquier tecla:"; 


lquier tecla para continuar” 

300 

FOR D = DI TO DI t 7 


555 

LOCATE 26 , 2,1 

740 

LOCATE 6,21 : PRINT ”0 ’ESC’ 

305 

READ N 


560 

LET KS = INKEYS : IF KS =”” 


para final izar” 

310 

VPOKE D , N 



THEN GOTO 560 ELSE LOCATE, , 0 

745 

LET KS = INKEYS : IF KS = ”” 

315 

NEXT D 


565 

IF ASCCKSX32 OR ASC(K$)>255 


THEN GOTO 745 

320 

DATA AbOOOOOOOO 



THEN GOTO 555 ELSE PRINT KS 

750 

IF NOT KS = CHRS (27) THEN 

325 

DATA &b01110000 


570 

LET DI = 2048 + ASC<KS) * 8 


GOTO 545 

330 

DATA &blllll000 


575 

LOCATE 0,3: PRINT ’’XVRVWRVVV 

755 

REM 

335 

DATA &blllll000 


VWVVVWVVWWWVWWVVWVVWY 

760 

REM * REST AUR AC I ON * 

340 

DATA &blllll000 


580 

LOCATE 0,4: PRINT ’’VcVASCV Pa 

765 

REM 

345 

DATA &b01110000 


tr6n en decimal <8 bytes) V 

770 

CLS 

350 

DATA &b00000000 


585 

LOCATE 0,5: PRINT ’’TVUWVUVVV 

775 

KEY ON 

355 

DATA &b00000000 


WWWWVWVWWVWWWWWWS 

780 

COLOR 15 , 4 




590 

LOCATE 0,6: PRINT "V V V 

785 

BND 
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INTERCAMBIANDO ARCHIVOS EN- 
TRE EL DBASE Y EL MSX BASIC. 



■ 


n este caso, se trata de un utilita- 
rio qua permit© leer archivos ge- 
ne rados por el d BASE II (progra- 
ma que se ha descripto en esta revista 
con bastante detalle) desde el MSX BA- 
SIC, e incluso generar un programita de 
ejemplo que arma los campos del archi- 
vo y realiza un ciclo para mostrar todos 
los registros. Apartirdel programagene- 
rado se podran armar programas m£s 
sofisticados para el intercambio de la in- 
formacion entre BASIC y dBASE. 


UN POCO DE TEORIA 


Los archivos dBASE II generados tanto 
en MSX como en las IBM PC compati- 
bles se arman de una forma est^ndar. 
Supongamos que tenemos un archivo 
llamado SOFT.DBF. Si hacemos un 
dumpdelmismoveremos loqueindicala 
figura 1 (en los primeros 500 bytes). 

En la primera columna se indica la posi- 
ci6n relativa dentro del archivo en hexa- 
decimal. En las 8 si- 
guientes, el cddigo 
ASCII (tambi6n en 
hexadecimal) de los 
caracteres que com- 
ponen esa llneay en 
la ultima, se mues- 
tran los caracteres 
propiamente dichos, 


FIGURA 1 


A: SOFT. DBF: 








0038: 

4E 

55 

4D 

45 

52 

4F 

00 

00 

NUMERO. . 

0000: 

02 

53 

00 

0A 

08 

58 

64 

00 

.S. . .Xd. 

0040: 

00 

00 

00 

43 

03 

09 

71 

00 


0008: 

54 

49 

54 

55 

4C 

4F 

00 

00 

TITULO. . 

0048: 

4D 

53 

58 

00 

00 

00 

00 

00 

MSX 

0010: 

00 

00 

00 

43 

23 

B9 

70 

00 

...C i 9p. 

0050: 

00 

00 

00 

43 

02 

OC 

71 

00 

...C..q. 

0018: 

54 

49 

50 

4F 

00 

00 

00 

00 

TIPO 

0058: 

4D 

53 

58 

3A 

38 

30 

00 

00 

MSX : 80 . . 

0020: 

00 

00 

00 

43 

19 

DC 

70 

00 

. . .C.flp. 

0060: 

00 

00 

00 

43 

02 

0E 

71 

00 

...C..q. 

0028: 

43 

41 

4A 

41 

00 

00 

00 

00 

CAJA 

0068: 

4D 

53 

58 

32 

00 

00 

00 

00 

MSX2 

0030: 

00 

00 

00 

43 

14 

F5 

70 

00 

. . . C . up . 

0070: 

00 

00 

00 

43 

02 

10 

71 

00 

...C..q. 


CENTROS DE ASISTENCIA AL USUARIO DE TALENT MSX 


CAPITAL FEDERAL 

Taller Logo de computaci6n 
Junfn 1930 

Centro de Computacidn Cllnica 
Asistencia al Usuario Discapacitado 
Ramsay 2250 - Pabelldn F 
Tel. 784-2018 

Barrio Norte 

Uriburu 1063 - Tel. 83-6892/826-6692 


Belgrano 

Cabildo 735 - Tel. 772-9088 


Flores 

Gral. Artigas 354 - Tel. 612-3902 

Palermo 

Guatemala 4733 - Tel. 71-4124 

San Telmo 

Chile 1345 - Tel. 37-0051 al 54 
GRAN BUENOS AIRES 
Caseros 

Medina y Alberdi - ler piso - Tel. 750- 
8016. 

Casteiar 

C. Casares 997 - Tel. 629-2247 


LanCis 

Caaguazu 2186 - Tel. 240-0378 

Morbn 

Belgrano 160 - Tel. 629-3347 

Quilmes 

Moreno 609 - Tel. 253-6086 al 89 

Ramos Mejia 

Bolivar 55 - ler. piso - Tel. 658-4777 

San Isidro 

Av. Centenario 705 - Tel. 743-9678/747- 
6094 

San Justo 

Peru 2515 (esq. Arieta) 
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0180: 00 00 00 00 00 00 00 00 


0078: 4D 

41 

4E 

55 

41 

4C 

00 

00 

MANUAL. . 

0198: 

00 

00 

00 

00 

00 

00 

00 

00 


0080: 00 

00 

00 

4C 

01 

12 

71 

00 

...L..q. 

01 AO: 

00 

00 

00 

00 

00 

00 

00 

00 


0088: 43 

41 

4E 

54 

49 

44 

41 

44 

CANT ID AD 

01A8: 

00 

00 

00 

00 

00 

00 

00 

00 


0090: 00 

00 

00 

4E 

03 

13 

71 

00 

...N..q. 

01B0: 

00 

00 

00 

00 

00 

00 

00 

00 


0098: 56 

41 

4C 

4F 

52 

00 

00 

00 

VALOR . . . 

01B8: 

00 

00 

00 

00 

00 

00 

00 

00 


00 A0 : 00 

00 

00 

4E 

06 

16 

71 

02 

...N..q. 

01C0 : 

00 

00 

00 

00 

00 

00 

00 

00 


00A8: 0D 

00 

00 

00 

00 

00 

00 

00 


01C8 : 

00 

00 

00 

00 

00 

00 

00 

00 


00B0: 00 

00 

00 

00 

00 

00 

00 

00 


01D0 : 

00 

00 

00 

00 

00 

00 

00 

00 


00B8 : 00 

00 

00 

00 

00 

00 

00 

00 


01D8 : 

00 

00 

00 

00 

00 

00 

00 

00 


00C0: 00 

00 

00 

00 

00 

00 

00 

00 


01E0 : 

00 

00 

00 

00 

00 

00 

00 

00 


00C8 : 00 

00 

00 

00 

00 

00 

00 

00 


01E8: 

00 

00 

00 

00 

00 

00 

00 

00 


00D0: 00 

00 

00 

00 

00 

00 

00 

00 


01F0 : 

00 

00 

00 

00 

00 

00 

00 

00 


00D8 : 00 

00 

00 

00 

00 

00 

00 

00 


01F8 : 

00 

00 

00 

00 

00 

00 

00 

00 


00E0 : 00 

00 

00 

00 

00 

00 

00 

00 


0200: 

00 

00 

00 

00 

00 

00 

00 

00 


00E8: 00 

00 

00 

00 

00 

00 

00 

00 


0208: 

00 

20 

41 

42 

53 

54 

41 

54 

. ABSTAT 

00F0 : 00 

00 

00 

00 

00 

00 

00 

00 


0210: 

20 

20 

20 

20 

20 

20 

20 

20 


00F8 : 00 

00 

00 

00 

00 

00 

00 

00 


0218: 

20 

20 

20 

20 

20 

20 

20 

20 


0100: 00 

00 

00 

00 

00 

00 

00 

00 


0220: 

20 

20 

20 

20 

20 

20 

20 

20 


0108: 00 

00 

00 

00 

00 

00 

00 

00 


0228: 

20 

20 

20 

20 

20 

55 

54 

49 

UTI 

0110: 00 

00 

00 

00 

00 

00 

00 

00 


0230: 

4C 

49 

54 

41 

52 

49 

4F 

20 

LITARIO 

0118: 00 

00 

00 

00 

00 

00 

00 

00 


0238: 

20 

20 

20 

20 

20 

20 

20 

20 


0120: 00 

00 

00 

00 

00 

00 

00 

00 


0240: 

20 

20 

20 

20 

20 

20 

55 

54 

UT 

0128: 00 

00 

00 

00 

00 

00 

00 

00 


0248: 

49 

4C 

49 

54 

41 

52 

49 

4F 

ILITARIO 

0130: 00 

00 

00 

00 

00 

00 

00 

00 


0250: 

53 

20 

20 

20 

20 

20 

20 

20 

S 

0138: 00 

00 

00 

00 

00 

00 

00 

00 


0258: 

20 

20 

30 

31 

31 

2E 

2E 

53 

Oil. .s 

0140: 00 

00 

00 

00 

00 

00 

00 

00 


0260: 

49 

53 

49 

46 

20 

20 

30 

20 

IS IF 0 

0148: 00 

00 

00 

00 

00 

00 

00 

00 


0268: 

20 

30 

2E 

30 

30 

20 

42 

41 

0.00 BA 

0150: 00 

00 

00 

00 

00 

00 

00 

00 


0270: 

53 

49 

43 

20 

38 

30 

20 

43 

SIC 80 C 

0158: 00 

00 

00 

00 

00 

00 

00 

00 


0278: 

4F 

4D 

50 

49 

4C 

45 

52 

20 

OMPILER 

0160: 00 

00 

00 

00 

00 

00 

00 

00 


0280: 

20 

20 

20 

20 

20 

20 

20 

20 


0168: 00 

00 

00 

00 

00 

00 

00 

00 


0288: 

20 

20 

20 

20 

20 

20 

20 

20 


0170: 00 

00 

00 

00 

00 

00 

00 

00 


0290: 

20 

4C 

45 

4E 

47 

55 

41 

4A 

LENGUAJ 

0178: 00 

00 

00 

00 

00 

00 

00 

00 


0298: 

45 

20 

20 

20 

20 

20 

20 

20 

E 


FIGURA3 


si su codigo ASCII 
supera el valor 
&H1F. 

Lainformacionseda 
de la forma que indi- 
ca la figura 2 (toman- 
do como primer byte 
el numero 0) 
Lossiguientes bytes 
describen cada 
campo. (ver figura 3) 
Se admiten hasta 
32 campos por re- 
gistro. Para indicar 
elfin de los campos, 
la posicion que co- 
rresponderiaal cam- 
po siguiente tiene 
como primer carac- 
terelCR (ASCI1 13). 
Finalmente, los da- 
tos de la base se al- 
macenan de corrido 
en forma similar al 
MSX BASIC con ar- 
chivos relativos, en 
ASCII. 

El area de datos se i- 


0190: 00 00 00 00 00 00 00 00 

Posicidn relativa 

Descripcidn 

FIGUE 

IA 2 

0 an 9 

Nombre camDO (se comoleta con el carac- 

Byte 

Indica 



■ i V 111 V/ 1 V VMI 1 1 k/V \ W V W 1 1 1 k/l W IW W 1 1 W 1 vU 1 Wv 

ter ASCII 0 hasta llegar a 1 0 caracteres) 




10 

Car&cter ASCII 0 • 

00 

Cbdigo 02:lndica archivo dBASE 


11 

Tipo (en ASCII: “C” para caracter, "N” para 

01-02 

Cantidad de registros 



numdrico, “L” para logico) 

03 

Dia ultima actualizaci6n 


12 

Longitud (hasta 254) 

04 

Mes ultima actualizacion 


13-14 

Direccion de memoria donde se almacena 

05 

Ano ultima actualizaci6n 



en dBASE 

06-07 

Cantidad de caracteres por registro + 1 


15 

Cantidad de decimales 


Vicente L6pez 
Av. Maipu 625 - Tel. 797-672 
Virreyes - Pdo. de San Fernando 
Avellaneda 1697 - Tel. 745-7963 

INTERIOR DEL PAIS 

Bahfa Blanca • Buenos Aires 

Gral. Paz 257 - Tel. (091 ) 31582 

Junfn - Buenos Aires 

Gandini 75 - Tel. (0362) 27956 

La Plata - Buenos Aires 

Calle 48 No. 529 - Tel. (021 ) 249905 al 07 

Mar del Plata - Buenos Aires 

Av. Luro 3071-130. "A” -Tel. (023) 43430 


Necochea - Buenos Aires 

Calle 61 No. 2949 - Tel. (0262) 26583 

Comodoro Rivadavia - Chubut 

San Martin 263 - Local 22 - Tel. (0967) 
20794 

Cdrdoba - Cbrdoba 

9 de julio 533 - Tel. (051 ) 20083 

Villa Marla - Cbrdoba 

Corrientes 1 159 - 2do. piso - Tel. (0535) 
24311 

Concordia - Entre Rios 

Urdinarrain 50 - Tel. (045) 213229 

Parang - Entre Rios 

Cordoba 67- Tel. (043) 225987 


Mendoza -Mendoza 

Rivadavia 76 - ler. piso - Tel. (061) 
291348/293151 

Viedma - Rio Negro 

San Martin 24 - Tel. (0920) 21888 

Rosario - Santa Fe 

Baron de Maua 1 088 - Tel. (041 ) 21 0747 

Santa Fe - Santa Fe 

Rivadavia 2553 - Loc.22 - Tel. (042) 

41832 

San Juan- San Juan 

Santa Fe 409 Este 

S.M.de Tucum^n - Tucum^n 

Bolivar 374 - Tel. (081 ) 245007 
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nicia en la posicidn &H20A dentro del ar- 
ch ivo. 

Para intercambiar datos con el BASIC se 
usa la siguiente secuencia: 

Siguiendo con el ejemplo del archivo 
SOFT.DBF y estando en dBASE, ingre- 
semos lo siguiente: 

USE SOFT 

COPY TO SOFT SDF 

lo que general el archivo SOFT.TXT 


con todos los datos en ASCII, separando 
cada registro con la secuencia CFt/LF 
(caracter ASCII13/car6cter ASCI1 10). 

El programa que se incluye en este ar- 
ticulo es un pequefio utilitario que permi- 
te tomar el archivo SOFT.DBF y analizar 
su estructura aplicando lo visto, asi como 
generar un programa BASIC que leera el 
archivo SOFT.TXT (o el que se indique) 
y lo imprimira en pantalla. Apartirdel pro- 
grama generado (que si se opta por gra- 


barlo en disco, se podr6 cargar con un 
simple LOAD), se deja librada a la imagi- 
nation del lector la aplicacion de inter- 
cambio de datos que se le quiera dar al 
susodicho programita. 

Cuando se hace el listado final del pro- 
grama generado, usamos el “truco” del 
Prof. Gustavo Delfino que permite pre- 
servar los ultimos renglones de la panta- 
lla contra el "scroll”. 


10 ? 

* 


20 ? 

* 

Analizador dBASE II 

30 ? 

* 

Revista. : Load MSX 

40 ? 

* 

Rincon del usuario Talent 

50 ? 

* 

Autors Hugo Caro 

60 

* 



70 CLEAR 1024 : CLS: WIDTH40: KEYOFF: PRINT "Analizador de archivos dBASE II" 

80 DEF FNCERO* (NU, CU) =RIGHT* (STRING* <CU, "0" ) +RIGHT* (STR* <NU) , LEN (STR* (NU) ) -1 ) , CU 
) : DIM CA* (32, 4) , EQ*<32) ,PB*(3B> , E2*(32) ,FL7.<32> 

90 ' 

100 ’ * Menu principal 
1 1 0 ’ 

120 LOCATE 0,5: PRINT TAB (5) ; " 1 ) Muestra estructura 
130 PRINT TAB<5);"2) Muestra y genera programa BASIC 
140 PRINT TAB (5) ; "3) Fin 

1 50 LOCATE 0 ,22:1 NPUT " Su opc i on < 1 -3 > : " ; OP7. 

160 IF OPy.Cl OR OP*/. >3 THEN 70 
170 ON OP*/. GOTO 230,230,210 
180 ’ 

190 ’ * Fin programa 

200 ’ 

210 CLS : PR I NT " Ad i os . . . " : END 
220 ’ 

230 ’ # Anal iz ador estructura dBASE 

240 ’ 

250 CLS: PRINT: PRINT "Nombre del Archivo: " : INF’UTAR* 

260 ON ERROR GOTO 1300 

270 OPEN AR* FOR INPUT AS 1 : CLOSE "Cheques si existe el archivo 
280 OPEN AR* AS 1 LEN=1 
290 FIELD 1,1 AS A* 

300 GET#1 , 1 : IF A$OCHR*(2) THEN PRINT "No es un archivo dBASE" : CLOSE: END 
310 CLS 

320 PRINT "Estructura del archivo: " ; AR$ 

330 GET# 1 : LO=ASC ( A* ) : GET# 1 : H I =ASC ( A* ) 

340 NR=L0+256*HI 

350 PRINT "Numero de Registros: " ; FNCERO* (NR, 5) 

360 GET # 1 : D I =ASC ( A* ) : GET#1 : ME=ASC (A*) : GET# 1 : AN=ASC (A*) 

370 PRINT "Fecha de ultima actual i zaci on: " ; FNCERO* ( DI , 2) ; " / " ; FNCERO* ( ME, 2) ; " / ” ; 

FNCERO* ( AN , 2 ) : GET# 1 : LO=ASC ( A* ) : GET# 1 : H I =ASC ( A* ) : TT=L0+256*H I 

380 PRINT"Longi tud Registro: FNCERO* (TT-1 , 5) : PRINT: PRINT "CMP NOMBRE 

T I PO LONG DEC " : NC=0 

390 GOSUB 1100: IF ASC(N0$)=13 THEN 450 

400 NC=NC+ 1 : CA* ( NC , 1)=N0*:PRINT FNCERO* (NC, 3) ;TAB(S) ;CA*(NC, 1) ; 

410 GET#1 : GET#1 : CA* (NC, 2) =A9>: PRINTTAB (21 ) ;CA*(NC,2) ; 

420 GET# 1 : CA* ( NC , 3 ) =FNCERO* ( ASC ( A* ) ,3) : PRINT TAB (26) ;CA$(NC,3) ; 

430 GET # 1 : GET# 1 : GET # 1 : CA* ( NC , 4 ) =FNCERO* ( ASC ( A* ) , 3 ) : I F ASC(A*><>0 THEN PRINT T AB ( 
33) ; CA* (NC, 4> ELSE PRINT 
440 GOTO 390 

450 PRINT "** TOTAL **"; TAB (24) ; FNCERQ* (TT, 5) : TT=TT-1 : PRINT: GOSUB 1060: CLOSE 
460 IF OP*/.= l THEN 70 
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470 * 

480 7 * Generar programs BASIC 
490 7 

500 CLS: PRINT "Generando programs BASIC..." 

510 XX=INSTR ( 1 , AR$, " . " ) : IF XX THEN AR*=LEFT* (AR*, XX-1 ): PRINT: PRINT"Programa: ";A 
R$+" . BAS" : PRINT 

520 PRINT: PRINT "Generando encabe: ado. . . " ; 

530 A$="QPEN "+CHR$ (34) +AR$+" . TXT"+CHR$ (34) +" AS #1 LEN="+STR$ (TT+2) : NL=0: NP=0 
540 GOSUB 11 80: PRINT "Completo" 

550 7 

560 7 # Analizar variables (por compati bi 1 i dad BASIC) 

570 7 

580 PRINT "Analizando var i abl es: PRINT " Fase I..."; 

590 FOR 1=1 TO NC 

600 EQ*(I)=LEFT$(CA$(I, 1),2) : FL7. ( I ) =VAL (CA$ ( 1 , 3) ) 

610 XX=INSTR(1,EQ$<I IF XX THEN EQ$ ( I ) =LEFT$ (EQ$ ( I ) , XX-1 ) +RIGHT* (EQ$ < I ) , L 
EN <EQ$ ( I > ) — XX) 

620 NEXT I : PR I NT" Comp 1 eta" 

630 TF=0: PRINT '* Fase II..."; 

640 TP=TP+1 : IF TP>NC THEN PR INT "Comp 1 eta " : GOTO720 
650 CC=0 : CH= 1 : BF=0 

660 IF EQ$ (TP) =" IF” OR EQ$ (TP) = "FN” OR EQ$<TP)="OR" OR E0*> (TP) ="0N" OR EQ$(TP)=" 
TO" THEN 00=1: GOTO 700 
670 00=0: FOR J=1 TO TP 

680 IF E2$ ( J ) =EQ$ ( TP ) THEN OO=1:GOTO700 
690 NEXT J 

700 IF 00 THEN GOSUB 1220: GOTO 660 
7 1 0 E2$ ( TP ) =EQ$ ( TP ) : GOTO 640 
720 7 

730 7 # Construye linea de FIELD 

740 •' 

750 PRINT "Construyendo linea FIELD..."; 

760 A$= "FIELD #1," 

770 FOR 1=1 TO NC 

780 A$=A$+STR$ (FL7. < I ) ) +" AS " +E2$ ( I )+"$": I F I<NC THEN A$=A$+"," 

790 NEXT I : GOSUB 1 1 80 : PR I NT "Completo" 

800 IF NR=0 THEN A$=" 7 No hay regi stros" : G0SUB1 180: PRINT"No hay regi stros. . . " : GO 
TO 880 

810 A$="F0R I7.= l T0"+STR*(NR) : GOSUB 1180 

820 A$="GE1 #1 : PRINT ": PRINT "Construyendo ciclo lectura. . . 

830 FOR 1=1 TO NC:A$=A$+E2$(I)+"$" 

840 IF KNC THEN A$=A$+";" 

850 NEXT I: PRINT "Completo" 

860 GOSUB 1180 

870 A$="NEXT 17.: CLOSE#!: END”: GOSUB 1180 

880 PRINT "Construyendo tabla equi Valencias. .. " 

890 NL=90: A$=" 7 Tabla de equi val enci as ": GOSUB 11B0 
900 FOR 1=1 TO NC 

910 A$=" 7 * "+E2$ < I ) +"$ = " +CA$ (1,1): GOSUB 1180 
920 NEXT I 
930 7 

940 CLS: PRINT "Graba el programa? (S/N)"; 

950 A$=INPUT$<1) :PRINTA*: IF I NSTR ( 1 , " SsNn " , A$ > =0 THEN 940 

960 IF A$="N" OR A$="n" THEN SN=0 ELSE SN=1 

970 IF SN THEN OPEN AR$+ ". BAS " FOR OUTPUT AS #1 

980 PQ-PEEK < &HF3B 1 ) : P0KE&HF3B 1,22: FOR 1 = 1 TO IMP 

990 PR I NT PB$ ( I ) : I F SN THEN PR I NT# 1 , PB* ( I ) 

1000 NEXT I: IF SN THEN CL0SE#1 
1 0 1 0 GOSUB 1 060 : P0KE&HF3B 1 , PO 
1020 GOTO 70 
1030 7 

1040 7 * Pausa 
1050 7 

1060 LOCATE 0 , 22 : PR I NT "Pulse Lina tecl a. A$=I NF'UT* ( 1 ): LOCATE 0, 22: PRINTCHR* ( 

27) "K": RETURN 
1070 7 

1080 7 * Obtiene nombre campo 
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INCON DEL USUARIO 


DE TALENT MSX 


1090 7 

1100 ND$=" " : FDR 1=1 TD 10 

1110 GET#1 : IF ASC<A*>=0 THEN 1130 

1 120 NO$=NO*+A$ 

1130 NEXT I 
1140 RETURN 
1150 7 

1160 7 # Genera Linea BASIC 
1170 7 

1180 NL=NL+10: NF‘=NP+1 : PB$ (NP) =STR$ <NL) +" "+ A*: RETURN 
1190 7 

1200 7 # Analizador de variables BASIC 
1210 ’ 

1220 IF BF THEN 1250 

1230 CH=CH+1 : IF CH>LEN <CA* (TP, 1 ) ) THEN BF=1 : LC=47: GOTO 1250 
1240 EQ$<TP>=LEFT$(EQ$<TP> , 1 ) +MID$ (CA$ (TP, 1) ,CH, 1) : RETURN 
1250 LC=LC+1 : IF LC=58 THEN LC=65 
1 260 EQ* ( TP ) =LEFT$ < EQ$ < TP > , 1 ) +CHR* ( LC ) : RETURN 
1270 7 

1280 7 * Rutinas de ERROR 
1290 7 

1300 IF ERL=270 THEN PRINT : PRINT "No existe ese archi vo ! " : GOSUB 1060: RESUME 70 
1310 PRINT "Error: ":ERR: "Linea: ";ERL:ON ERROR GOTO 0: END 


ENVIANDO MENSAJES 
ALMACENADOS EN UN 


(ya que aunque est& en ROM, el progra- 
ma terminal estaen BASIC yen ASSEM- 
BLER) que se puede usar con ACAmati- 


ca. 


La forma de utilizarlo es la siguiente: 


ARCHIVO EN ACAMATICA ! Es,and0 en MSX BASIC ' ,n9resemos 


jl cleisico: 


os usuarios del modem Talent 
TMX-510 generalmente se co- 
munican con ACAmatica y 
cuando entran a dicha base de datos co- 
rn ienzan a intercambiar informacion con 
otros socios o nos consultan a INFOTA- 
LENT en ACAmatica, alnumeroTI 0003. 
Cuando se utiliza este sistema y se quie- 
re enviar un mensaje, se puede optar por 
dos caminos: 

1) Ingresar desde elteclado el mensaje 
en el momento en que ACAmatica lo so- 
licita. 

2) Enviar un archivo previamente alma- 
cenado en disco o casete. 

El primer camino requiere saber dactilo- 
grafia, si no se desea perder demasiado 
tiempo en linea, y se trabaja como una 
maquina de escribir: si me equivoque en 
algo y me doy cuenta luego de pulsar 
<RETURN>..., debere dejarlo asi o abor- 
tar el mensaje. 

El segundo camino, con el soft que incor- 
pora el modem TMX-51 0 no se puede re- 
alizar directamente, pues no preve que el 
Host (la computadora que maneja la. 
BBS) tenga alguna demora en ir acep- 
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tando cada linea; lo que hace que ACA- 
matica reciba la cuarta parte del mensa- 
je enviado. 

Es por esto que incluimos a continuacion 
una version modificada del programa 
modem para Talent en su parte BASIC 


CALL MENU 

2) Una vez que nos encuentremos en el 
menu, pulsemos <CTRL><STOP> 

3) Carguemos el programa nuevo y eje- 
cutemoslo. 

Ya estaremos en condiciones de enviar 
un archivo en ACAmail de la forma habi- 





tual, teniendo en cuenta qua: 

1) Se ira enviando un renglon por vez 

2) Deberemos pulsar unatecla para que 
continue el envfo (o <ESC> para cance- 


larlo) 

3) El archivodeberatener un CR (Retor- 
no de carro, ASCI1 13) cada 38 caracte- 
res o menos 


4) No debera excederse de los 1 0 renglo- 
nes. 

Esperemos que esta nueva version sea 
de utilidad para IcfACAmaticos”. 


560 DEFINT A-Z 

570 CLS : KEYOFF : LOCATE , , 0 

580 B < 0 ) =0 : B < 1 ) = 1 

650 DEFUSR=8<HD009 : DEFUSR3=S<HD003 

710 IF PEEK (&HFD0A) =8<H33THEN I=USR3(1) 

720 IF PEEK (&HFD0A) < >&H99THEN POKE&HFD0A , ?<H99 

730 A* < 1 ) = " - > " +CHR* ( 29 ) +CHR* < 29 ) : A*<0)=" "+CHR* (29) +CHR* (29) ! IT=1 

740 SCREEN0 : W I DTH40 : LOCATE0 , 0 : PR I NT TAB < 1 1 ); "MODEM TALENT MSX v. .7. 2" : PRINT 

TAB (12) ; "MENU PRINCIPAL" ; FOR I=1TO40: PRINT"—" ; s NEXT 

750 LOCATES, 10: PRINT "BASIC" 

760 LOCATES, 11: PRINT" ACAMATICA, DELPHI Y OTROS" 

770 10=3: GOSUB 1000: IF 0K=1THEN F'RINTTAB (5) ; "F'ROCESADOR DE TEXTO" : IT=IT+1 : B ( IT) =1 
0 

780 10=9: GOSUB 1000: IF 0K=1 THEN F'RINTTAB (5) ; "F'LANILLA DE CALCULO" : IT=IT+1 : B < IT) =1 
O 

790 L0CATE3, 10: PRINT A*<0>; 

800 A*= INKEY* 

810 IF KM7THEN K=0: N=1 -N: LOCATES, 10+A: PRINT A*<N>; 

820 IF A*=" "THEN K=K+1 : GOTO800 
830 IF ASC (A*) =30THEN870 
840 IF ASC (A*) =31THEN910 
850 IF ASC <A*) =13THEN950 
860 GOTO800 

870 LOCATES, 10+A: PRINT A*<0); 

880 A=A— 1 : IF AC0THEN A=IT 
890 LOCATES, 10+A: PRINT A* ( 1 ) s 
900 6OTO800 

9 1 0 LOCATES , 1 0+A : PR I NT A* ( 0 ) ; 

920 A=A+ 1 : I F A>IT THEN A=0 
930 LOCATES., 10+A: PRINT A* (1 ) ; 

940 GOTO800 

950 QUT8<H8D, 0: I=USR3 (0) : I=USRS (2) : OUT (?<H8D> , B < A) 

960 IF B(A)=9THEN I=USR3 (2) : CALL MSXF'LAN 

970 IF B ( A) =3THEN I=USR3 (2) : CALL WRITE 

980 IF B ( A) =0THEN I=USR3 (0) : CLS: NEW 

990 IF B (A) =1THEN 0UT?<H8D , 0 : I =USR3 ( 0) : RUN 1 070 

1000 OUT (?<H8D) , 10 

1 0 1 0 D=USR ( S/.H4000 ) 

1020 IF HEX* (D) ="41 "THEN 0K=1ELSE OK=0 
1030 RETURN 

1070 CLEAR 1024, &HCF00: DEFSNG A-Z 

1080 MAXFILES=2: ON ERROR GOTO3220 

1 090 CS I =?<HD0 1 8 : GS I =?<HD0 1 6 : F'TR=?<HD0 1 2 : PR=?<HD0 1 A 

1 1 00 DEFUSR=S<HD006 : DEFUSR2=&HD000 : DEFUSR4=S<HD00C : DEFUSR5=?/HD00F 
1140 CLS: KEY OFF 

1150 DIM MA*<3,6) ,PR*(3,6> ,MX7.(6) ,0P7.(6) 

1160 RESTORES 160: FOR I‘/.=0TO6: READ MX ( 17.) , OP ( IV.) , CL ( 17.) : NEXT 17.: CUR* ( 1 )="->": CUR* 

( ') rr »» »» 


117 0 h OR 1 7.=0TO6 : FOR J 7.=0TO M X < 1 7. ) : RE AD MA* ( J 7. , 1 7. ) 

1 1 80 PR* ( J 7. , 1 7. ) =MA* ( J 7. ,17.) 

1190 IF 0P(I7.)=J7.THEN A*=MA* ( J7., 17.) : GOSUB2560: F'R* ( J7., 17.) =B* 
1200 NEXT J7.:NEXT 17. 

1210 FOR I=1TO10:READ A*: KEY I, A*: NEXT 


1 220 KEY2 , STR* ( ?<H7FFF ) 

1230 IF PEEK (?<HFAFC) THEN KEY9, "Ancho" 

1 27 0 EF7.=2 : CR7.=0 : EC7.=0 : OP7.=0 : NF'7.=0 : W I =40 : POKE F'TR , 0 : POKE F'TR+ 1,0: POKE F'TR+ 
KE F'TR+3 , 0 : POKE GS 1 , 0 : POKE CS 1 , 1 : POKE F'R , 0 : G0SUB24 1 0 
1280 GOSUB3800: OPEN"com0: "AS1 


r> 


0 : PO 


1320 A*= INKEY* 

1330 IF A*=CHR* (24) THEN3380 
1340 IF LOC ( 1 ) THEN GOSUB1570 
1350 IF A*=" "THEN 1320 
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1390 IF CR7.AND A*=CHR* (13) THEN A*=A*+CHR* < 10) 

1400 IF OP < 0 ) < > 1 THEN PR I NT# 1 , A*; : GOTO 1500 
1 430 I F ( I NP ( &H82 ) AND 1 ) =0THEN 1 320 
1 440 I F CM7.=0THEN_COMDTR < , 1 > s CM7.= 1 
1450 PR I NT# 1, A * 5 

1460 IF INSTR ( 1 , A*, CHR* ( 13) ) THEN_COMDTR ( , 0) s CM%-0 

1500 IF EC7.THEN A*=USR2 < A*) : GOSUB1590 

1510 GOTO 1320 

1570 8 *= INPUT* (LOC ( 1 ) , 1 ) 

1580 B*=USR2<B*) 

1590 IF PEEK (GSI) THEN FR*PEEK <PTR> +PEEK (PTR+1 ) *256: IF FRC&H7FFF THEN KEY2,STR*(*c 
H7FFF-FR ) ELSE QK7.= 1 : KEY 2 , " 0000 " 5 CL0SE2 : GOSUB2730 
1600 RETURN 

1640 IF PEEK (PR) =0AND ( INP (&H90) AND2) < >2THEN KEY1 , "Tro-f-f u : BEEP: POKE PR, 1ELSE POKE 
PR , 0 : KEY 1 , " Tron” 

1650 RETURN 
1690 RETURN 

1730 IF PEEK (GSI) OR (PEEK (PTR+l > =&H80> THEN POKE GSI , 0: KEY3, "Graba" : BEEP: RETURN 
1740 POKE GSI, 1:KEY3, "No Gr aba" : RETURN 
1780 CLSs RETURN 

1820 IF EC7=0THEN KEY 6 , "Eco: Si " : EC7.= 1 ELSE KEY 6 , "Eco: No" : EC7.=0 
1830 RETURN 

1840 IF CR7.=0THEN KEY7, "LF: Si " : CR7.= 1ELSE KEY7, "LF: No" : CR7.=0 
1850 RETURN 

1900 CLOSE: CALL COMINI < " 8 n In " , 300, 300) : WIDTH40: LOCATE, ,0:FOR I7.= 1T09: KEY ( 17.) OFF: 
NEXT : A=USR (0) : KEYOFF : LOCATE , ,0 
1910 PR I NTT AB (14) ; "Parametros" 

1920 PRINT 

1930 PRINT" Vel oci dad | Norma | Modo | Pari" 

1940 PRINT" I I | dad " 

1950 PRINT" 1 1 1 1 " 

1960 PRINT" | | | " 

1970 PRINT" || | ” 

1980 PRINT" || | 

1990 PRINT" 

2000 PRINT 
2010 PRINT" 

2020 PRINT" 

2030 PRINT" 

2040 PRINT" 

2050 PRINT" 

2060 PRINT" 

2070 PRINT" 

2080 PRINT" 

2090 PRINT" 

2100 LOCATE0, 21 : PRINT"Uti 1 i ce: Cursores para cambiar de OPCI ON" ?: PRINT TAB(9);"R 
ETURN para sel ecci onar ": PRINT TAB(9);"ESC para salir"? 

2110 GOSUB2250: X~0: Y=5: P=0 

2120 A*~- INKEY*: IF A*=” "THEN T7.=T7.+ 1 : I F T7.= 15THEN T7.=0: LOCATE X,Y: PRINT CUR* (T 17.) 

; : T 1 7.= 1 -T 1 7. : G0T02 1 20ELSE2 1 20 
2130 LOCATE X,Y: PRINT CUR*<0) 

2140 IF A*=CHR* (27) THEN WIDTH W I : G0SUB24 1 0 : S A7.=0 : GOSUB3800 : OPEN " c om0 : " AS 1 : IF DA7. 

=6THEN_CQMDTR ( , 0) : CM7.=0: RETURN 1320ELSE RETURN 1320 

2150 IF A*~CHR* ( 13) THEN OP <P) ==Y~5+9* <F* >3) : GOSUB2320 

2160 IF A*=CHR* (31 ) THEN Y=Y+lsIF Y>MX (P) +5-9* (P>3) THEN Y=5~9* (P>3) 

2170 IF A*=CHR* < 28 ) THEN PX=1 : GOSUB2500 
2180 IF A* : =CHR* (29) THEN PX«-1 : GOSUB2500 

2190 IF A*=CHR* < 30 ) THEN Y=Y~1:IF Y<5~9* (P>3) THEN Y=MX (F‘) +5-9* <P>3> 

2200 LOCATE X,Y: PRINT CUR* ( 1 ) 

2210 GOTO2120 

2250 FOR I=0TO6: FOR J=0TO MX (I) 

2260 LOCATE CL ( I ) , 5+J-9* ( I >3) : PR I NT PR*(J, I) 

2270 NEXT J : NEXT I 
2230 RETURN 

2320 IF OP (0) =1 AND P—0THEN GOSUB2610 

2330 IF OF‘ ( 0 ) =0 AND F‘=0AND PR* ( 0 , 0 ) = " 300 " THEN GOSUB2670 

2340 FOR J—0TO MX(P):LOCATE CL (P) , 5-9* (P>3) +J : PRINT MA* < J , P) : PR* ( J , P) =MA* ( J , P) 
2350 IF OF* ( P ) = J THEN A*=MA* ( J . P ) : GOSUB2560 : PR* ( J „ P ) =B* : LOCATE CL (P ) , 5-9* (P^3) +J- 



J Long. 
Datos 
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PRINT B* 

2360 NEXT J 
2370 RETURN 

2410 BA=VAL (MA* (OP (0) ,0) ) : OF'*=MA* (OP (3) ,3) : IF OP*="P"THEN OP*="E"ELSE IF OF'*=" I " 
THEN 0P*="0" 

2420 0P*=MA*(0P(5>,5)+0P*+RIGHT*(STR*(0F'(6)+1) , 1) 

2430 IF 0F'(4)=1THEN OP*=OF'*+"N" 

2440 IF OP (0) =1THEN DA‘/.=6ELSE IF OP ( 1 ) =0THEN IF OP(2)=0THEN DA7.=0ELSE DA’/.= 1ELSE 

IF OP (2) =0THEN DA'/.=4ELSE DA7.=5 

2450 CALL COMINI (OP*, BA, BA) : OUT (?<H8C> , DA7. 

2460 RETURN 

2500 P=P+PX:P=P+7*(P>6)-7*<P<0) : IF OF'(0)=1THEN P=F'-2* (P=l ) +2* (F-2) : IF P=4THEN F~ 
F'+F'X 

2510 IF P>3THEN Y=14ELSE Y=5 
2520 X=CL (P) -2: RETURN 

2560 B*=" " : FOR SA*/.= 1T0 LEN (A*) : B*=B*+CHR* (96+A5C (MID* (A*, SA7., 1 ))): NEXT: RETURN 
2610 OP ( 1 ) = 1 : OP ( 2 ) =0 : A*= " CC ITT": GOSUB2560 : PR* ( 1 , 1 ) =B* : LOCATECL ( 1 ) ,6: F’RI NTB* : B*= " 
” : PR* (0,1) =B* : LOCATECL ( 1 ) , 5 : PR I NTB* : A*= "Half -Dup 1 " : GOSUB2560 : F'R* < 0 , 2 ) =B* : LOC 
ATECL (2) , 5: PRINT B*: B*=" " : F'R* (1,2) =B*: LOCATECL (2) ,6: PRINTS* 

2620 OP (4) =1 : A*="No" : GOSUB2560: F'R* ( 1 , 4) =B*: LOCATE CL (4) , 15: PRINT B*:B*=" " : PR* ( 

0, 4) =B*: LOCATE CL (4) , 14: PRINT B* 

2630 RETURN 

2670 B*="Bel 1 " : PR* (0, 1 ) =B*: LOCATE CL ( 1 ) ,5: PRINT B*: A*="Or i gi nate" : GOSUB2560: F'R* ( 
0, 2) =B*: LOCATE CL (2) , 5: PRINT B*: B*="Answer" : F'R* ( 1 , 2) =B*: LOCATE CL (2) , 6: PRINT B* 
2680 OP (4) =1 : B*=" Si " : F’R* (0,4) =B*: LOCATE CL (4) , 14: PRINT B* 

2690 RETURN 

2730 SOUND0, 70: SOUND 12, 5: SOUNDS, 63: S0UND13, &B00001 000: S0UND7, &B101 11110: RETURN 
2770 CLS 

2780 SN*=" PRINT: F'RINT"Graba conteni do" : PRINT: INF'UT"Graba (S/N) : " ; SN*: IF SN*="S 
"OR SN*="s"THEN2790ELSE IF SN*="N"OR SN*="n"THEN FR7.= 1 : RETURN ELSE2770 
2790 EF7.= 1: INPUT"Nombre archi vo: " ; AR* 

2800 BEEP: OPEN AR*FOR OUTPUT AS2 
2810 A*=STRING* (255, 32) 

2820 A*=USR4 (A*) 

2830 IF LEN (A*) =0THEN2880 
2840 PRINT#2, A*; 

2850 IF ER7.THEN ER7.=0: CL0SE2: RETURN 

2860 IF FG THEN2880 

2870 GOTO2820 

2880 CL0SE2 

2890 GOSUB2990 

2900 RETURN 

2940 SA'/.= 1: POKE GS 1,0: POKE CSI,1 
2950 FR7.=0: RETURN 

2990 BEEF' : POKE PTR , 0 : POKE F'TR+ 1,0: POKE F'TR+2 , 0 : POKE F'TR+3 , 0 : POKE CS 1 , 1 : SA’/.=0 : KEY 
2, STR* (S<H7FFF) : FR=0 
3000 RETURN 

3050 IF I NKEY*< > " " THEN3050 

3060 SN*=" " : CLS: F'RINT"Va a salir de la base de datos":PRINT 
3070 PRINT: INPUT"Conf i rma <S/N):";SN* 

3080 IF SN*="n "OR SN*="N"THEN FR7.=0: RETURN 
3090 IF SN*< >"s" AND SN*< >"S"THEN3060 

3100 CLOSE: KEYOFF: DEFUSR=?<H3E: A=USR (0) :KEYON: BEEP: ON ERROR GOTO0 
3110 IF FRO0THEN GOSUB2780 
3120 RUN 

3160 DATA 1,0,2, 1,1, 13, 1,0,23,2,2,37, 1, 1,9,3,3,20,2,0,29 

3170 DATA300, 1200, Bel 1 , CCITT , Originate, Answer , F', I , N, Si , No, 5, 6, 7,8, 1 , 1.5,2 
3180 DATA" Tron"," ",Graba, " Cl s" , Par am, "Eco: No" , "LF: No" , Status, C-3 ^ C-l 
3220 ON EF7.GOTO3270,3340 
3230 RESUME NEXT 

3270 IF ERRO70AND ERR019THEN F'RINT"Error . Intente Nuevamente" : FOR 1 7=1 TO 1000: N 
EXT I % : CL0SE2 : ER7= 1 : RESUME NEXT 
3280 IF ERR=19THEN RESUME NEXT 

'-’290 F'RINT"Col oque el disco en la uni dad" : PRINT"F'ul se una tecla para continuar" 
3300 A*= INKEY*: IF A*=" "THEN3300ELSE RESUME 

3340 I FERR= 1 90RERR=50RERR=590RERR=54THEN RESUME NEXT ELSE RESUME NEXT 
3380 CLS : LOCATE , , 0 : CLOSE : PR I NT " OPC I ONES : " 

3390 FOR I=1T09: KEY ( I ) OFF : NEXT 
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3400 PRINT: PRINT: PRINT" 1 - Grabar contenido de memoria" 

3410 PR I NT "2 - Limpiar memoria" 

3420 PRINT"3 - Visual isar memoria" 

3430 PR I NT" 4 - Envi ar archivo" 

3440 PRINT"5 - Salir de la base de datos" 

3450 F'RINT:PRINT TAB(4) ;: PRINT" Ingrese sli eleccibn (1-5)" 

3460 A*=INKEY$: IF A$=" "THEN3460ELSE OP=VAL(A$) 

3470 IF A$=CHR$ (27) THEN FR7.=0: GOTO3510 
3480 IF FR=0THEN IF 0PK4THEN BEEP : GOTO3460 
3490 IF DF'< 1 OR OP>5THEN3460 
3500 ON OP GOSUB2770, 2990, 4180, 3550, 3050 

3510 IF FR7.THEN FR7.=0: GOTO33S0ELSE EF7.=2: CLS: OK7.=0: FOR I = 1T08- (PEEK (?<HFAFC> < >0) : 
KEY ( I)QN: NEXT I: LOCATE, , 1: GOTO 1280 
3550 CLS: SN$=" " 

3560 PR I NT : F'R I NT " En v i ar archivo" 

3570 EF7.= 1 : I F PEEK ( &HFDEF ) < >8<HC9THEN F I LEB : PR I NT 
3580 OPEN "c am0: "AS1 

3590 IF ( INF' (&H82) AND1 ) =0AND OP(0)=1THEN PRINT "Hay portadora en linea":FOR I = 1T01 
000: NEXT I : FR7.= 1 : RETURN ELSE CALL COMDTR ( , 1 ) : CM7.= 1 
3600 INF'UT"Nombre archi vo: " ; AR$ 

3610 IF AR$=" "THEN FR7.= 1 : RETURN 

3611 CLS 

3612 PRINT "FORMA DE ENVIO": PRINT 

3613 PRINT "1) Envio normal" 

3614 PRINT "2) Envio a ACAMATICA" 

3615 PRINT:F‘RINT TAB (4) F'RINT" Ingrese su opcion (1—2)" 

3616 A*= INKEY*: IF A*=""THEN 3616 ELSE OF-VAL(A*) 

3617 ON OP GOTO 3620,5000 
3620 OPEN AR*FOR INPUT AS2 

3630 IF OP (0) AND PEEK (?<HFDEF) 0&HC9THEN LF=LOF ( 2) ELSE LF=-1 
3640 IF ER7.THEN ER7.=0: CL.0SE2: RETURN 
3650 IF EOF (2) THEN3750 
3660 IF LF=- 1 THEN3680 

3670 IF OP (0) THEN IF LF > 1 00THEN A*=INF'UT* ( 100, 2) : LF=LF--100: GOTO3690 
3680 A*= INPUT* (1,2) 

3690 EF7.=2 
3700 PRINTttl , A*; 

3710 IF ER7.THEN ER7.=0: CL0SE2: RETURN 

3720 IF LOC ( 1 ) THEN GOSUB1570 

3730 IF INKEY$“ CHR$ ( 27) THEN3750 

3740 EF%=1 : GOTO3650 

3750 CLOSE 

3760 RETURN 

3800 SCREEN© : W I DTHW I 

3810 LOCATE©, 0, 0: PRINT TAB ( 1 1-15* (WI=80) ); "MODEM TALENT MSX v .3 . 2 " : PR I NTT A 

B ( 12-15* (WI=80) ) ; "BANCO DE DATOS": FOR I = 1T0 WI : PRINT"-" ;: NEXT 
3820 LOCATE,, 1 

3830 ON KEY GOSUB 1 640 , 1 690 , 1 730 ,1780,1 900 , 1 820 , 1 840 , 3880 ,4110: FOR 1 7.= 1 T08- ( PEEK ( 
&HFAFC) < >0) : KEY ( 17.) ON: NEXT: KEYON 
3840 RETURN 
3880 KEYOFF 

3890 FOR I I = 1T09: KEY (II) OFF : NEXT 

3900 X X=F'OS (0 ) : YY=CSRL I N 

3910 AA*=PR* (OP ( 1 ) , 1 ) : GOSUB4030: CC$=BB$ 

3920 AA*=PR* ( OP ( 2 ) , 2 ) : GOSLJB4030 

3930 LOCATE© , 23: PRINTOP*; BA; CC$; " ” ; BB$; " " ; 

3940 IF OF' (0) =1THEN I F ( I NF' ( S<H82 ) AND 1 ) =0THEN F'RINT"F'ort : Remoto JI ; ELSE IF CM7.THEN P 
RINT"Port: Local "; ELSE IF CM7.=0THEN PRINT "Port: No" ; 

3950 IF INKEY$=" "THEN3950 
3960 LOCATE XX, YY 
3970 KEYON 

3980 FOR 1 1 = 1T08- (PEEK ( 8<HFAFC) < >0) : KEY ( 1 1 ) ON: NEXT 
3990 RETURN 
4030 BB$= " " 

4040 FOR 1 1 = 1 TO L.EN(AA«) 

4050 BB$=BB$+CHR^ (ASC(MID$(AA$,II,l))-96) 

4060 NEXT II 
4070 RETURN 
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4110 IF WI=40THEN WI=80ELSE WI=40 
4120 WIDTH WI 
4130 GOTO3800 

4 1 80 KEY < 1 ) ON : KEY2 , STR$ ( &H7FFF ) 

4190 POKE F'TR+2 , 0 : POKE PTR+3,0 
4200 P1=PEEK (PTR) : P2=PEEK (F'TR+1 ) 

4210 CLS: PRINT" Vi sual i zar memori a: " : PRINT" Pulse < RETURN > para comenzar" : PRINT: 
PRINT 

4220 A$~INKEY$: IF A$=CHR$ (27) THEN4310 
4230 IF A$< >CHR$ (13) THEN4220 
4240 A$=STRING$(WI, " " ) 

4250 A*=USR4(A$> 

4260 IF LEN ( A$) =0OR INKEY$=CHR$ (27) THEN4310 
4270 PRINT A$; 

4280 A$=USR5(A$> 

4290 KEY2, STR* (&H7FFF-PEEK (F'TR+2 > -PEEK (F'TR+3) *256) 

4300 GOTO4240 

4310 POKE PTR+2, 0: POKE PTR+3,0 
4320 POKE PTR, PI: POKE PTR+1, F'2 
4330 IF F'2=8<H80THEN KEY2, "0000” 

4340 F'R I NT : PR I NT : PR I NT "Pul se < RETURN > para volver" 

4350 IF INKEY$< >CHR$ (13) THEN4350 
4360 FR7.=0: RETURN 
4370 END 

4998 ’ 

4999 •’ 

5000 CLS: EF7.= 1: OPEN AR$ FOR INPUT AS 2 
5010 IF ER7. THEN ER7.=0: CL0SE2: RETURN 

.5030 LINE INF'UT#2, A$: IF LEN (A*) >38 THEN A$=LEFT$ ( A*, 38) : 7 INPUT* (38, 2) 

5040 EF7.=2 
5050 PRINT #1,A* 

5060 IF LOC(l’) THEN PRINT: GOSUB 1570 
5080 IF EOF ( 2 ) — 0 THEN GOSUB 5200: GOTO 5030 
5100 RETURN 

5200 IF LOC(l) THEN GOSUB 1570 

5204 PR I NT: PRINT" - - 

5205 PRINT "Espere la reacci6n de ACAMATICA": PRINT "< RETURN >: para conti nuar ": PR- 
INT "<ESC>: para interrumpir envio" 

5206 PRINT" 

5210 A*=INKEY$ 

5220 IF LOC(l) THEN GOSUB 1570 
5225 IF A$=CHR$ (27) THEN CL0SE#2: RETURN 
5230 IF A*=CHR$<13> THEN PRINT: RETURN 
5240 GOTO 5210 


INFORMA: 
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PO SIBILIDADE S DEL 


LA EDICION CON 
MSX-WRITE 

En programas de reducida extensibn, el 
editor que trae el equipo es mbs que su- 
ficiente para resolver cualquier proble- 
ma, pero ... ^Que sucede con los muy lar- 
gos? A medida que el usuario toma "altu- 
ra de vuelo” y empieza a confeccionar 
programas cada vez mas completos pa- 
ra su propio uso, comienzan las dificulta- 
des. 

Tener que buscar por pantalla, tras un 
LIST, un comando en particular para mo- 
dificar su sintaxis, o una variable para 
cambiarle el nombre, puede llegar a re- 
presentar ... un dolor de cabeza. 

Es en estos casos que recomendamos 
emplear el MSX-Write de TELEMATICA 
S.A.. Este procesador de textos nos per- 
mite cargar un programa en BASIC que 
haya sido almacenado en ASCII ( SAVE 
"PROGRAM. BAS”, A ) y modificarlo a 
nuestro gusto con todas las herramien- 
tas de que dispone. 

Finalmente, si solemos trabajar con el M- 
BASIC para poder compilar posterior- 
mente, el procesador de textos nos per- 
mits almacenar el programa - una vez e- 
ditado - en formato ASCII, con lo cual es 
asequible al compilador. 

LA CREACION DEL 
PROGRAMA 

Otra de las posibilidades es crear directa- 
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mente el programa con el MSX-Write, al- 
macenarlo en disco o en casete, y luego 
- desde el BASIC - cargarlo normalmen- 
te y ejecutarlo. Esto es posible porque el 
MSX-Write almacena directamente (sin 
necesidad de especificarselo) en codigo 
ASCII, y por ello en formato equivalents 
al SAVE A. 

Obviamente es un requisite para esta 
modalidad operativa tener previamente 
el programa "predigerido”, ya que no es- 
tb disponible la facilidad del interprete 
BASIC de ir probando -parcialmente- el 
programa para ver si realmente hace lo 
que deseamos... 


OTRA POSIBILIDAD 

Incorporar en el programa rutinas o su- 
brutinas que tengamos previamente al- 
macenadas en formato ASCII, a las cua- 
lespodemos accedercon laopcion BLO- 
QUE - CARGAR, sin necesidad de que la 
numeration de Ifneas sea la correcta es 
otra posibilidad que se nos brinda con el 
procesador de textos. 

La ventaja que esto otorga es la de no 
perder Ifneas del programa al cual le a- 
gregamos una subrutina cuando hay su- 
perposicibn (coincidencia) en el numero 
de Ifneas, cosa que suele ocurrir al usar 
el MERGE en BASIC. 

Gustavo O. Dalflno 


PROCESADOR DE TEXTOS 


Les mostramos como podemos escribir nuestros 
programas en el MSX WRITE. 


JEP n informaticadenominamos“e- 
| dicibn”alproceso pore! cual re- 
9HI visamos el listado de un texto 
creado previamente, con la posibilidad 
de corregir, suprimir o insertar partes en 
dicho texto. 

En las microcomputadoras existen dos ti- 
pos de editores: a) los de LINEA y b) los 
de PANTALLA. Los primeros actiian If- 
nea por Ifnea, de modo tal que si quere- 
mos modificar el contenido de una de e- 
llas en particular, hay que indicarlo ex- 
presamente por EDIT numero de Ifnea. 
El BASIC de la norma MSX posee un ex- 
celente editor del segundo tipo, en el 
cual, previo al listado de una o mas Ifne- 
as, pueden hacerse las modificaciones 
mucho mas facilmente. 






Un soft a 
eleccion entre 
IDEA BASE , IDEA TEXT, o 
BASIC TUTOR. 


CQNCURSQ tlENSURL 

Auspiciado por TELEMATICA S.A. fabricante en Argentina de las computadoras 

personales TALENT MSX 

Para participar en este certamen deben senalar cual es la information correcta que presenta cada 
item. Junto con las respuestas deben remitir los datos en el correspondiente cupon. Los premios 
se entregaran en la administration de la editorial. Los que no puedan concurrir pueden solicitar 
el envio pagando el franqueo contrareembolso. Los premios podran ser reclamados dentro de los 

120 dfas despues de haber sido anunciados. 


Ganador del MSX-TEST N 2 6 

Jorge Marcelo Linares, Brandsen (Buenos Aires) 


Respuestas correctas 


1- De informacidn perfecta con movimientos del azar. 2- OPEN. 3- 1200 a 
9600 baudios. 4- Bloque de Control de Archivo. 5- De estrategia. 


MSX-TEST N.10 - CIERRE 1 DE DICIEMBRE DE 1988 


T.iCudl es la versibn de MINI- 
LAN que acaba de lanzar TE- 
LEMATICA? 

a) II. 

b) III. 

c) IV. 

2 . 4 QU 6 hace el comando 
WIDTH? 

a) Compara dos palabras. 


b) Fija el ancho de columnas. 

c) Hace un scroll de pantalla. 

3.£Qu 6 significa CP/M? 

a) Programa de control para 
microcomputadoras. 

b) Mantenimiento de computa- 
doras personales. 

c) Lenguaje C para microcom- 
putadoras. 


4.180 es un programa que Si- 
mula... 

a) una carrera de autos. 

b) una carrera de motos. 

c) el juego de los dardos. 

5.ARGOS es un software... 

a) utilitario. 

b) de juegos. 

c) educativo. 


Nombre y apellido_ 
Direccion: 


Documentor 


Edad:_ 


_Maquina:_ 


Qu£ es lo que mas me gusta de la revista:. 
Que le agregaria: 


Que es lo que no me gusta:_ 






INDIANA 
JONES Y 
EL TEMPLO 
DE LA 

PERDICIO^^ 

Indiana Jones, Indy para los 
amigos, es un personaje bien 
conocido por el gran 
suceso que tuvieron las pelf- 
culas de Spielberg en todo el 
mundo. 

Harrison Ford personifica en 
el cine a este aventurero y sir- 
ve como modelo para la pre- 
sentacion del juego. 

La historia comienza cuando 
nuestro heroe llega a una po- 
blacion que esta sufriendo 
varias desgracias: malas co- 
sechas, ninos raptados, et- 
cetera. El origen de todos es- 
tos males fue la desaparicion 
de la piedra sagrada, que 
protegia la ciudad. 

Indy es un importante arque- 
ologo y recuerda la leyenda 
de las piedras sankara. Eran 
cinco piedras que concedian 
poderes magicos a sus pose- 
edores. Hace mucho tiempo 
esas piedras se desperdiga- 
ron provocando la desapari- 
cion de la tribu thuggee que 
las adoraba. 


Las piedras, segun la leyen- 
da, eran de un tamaho infe- 
rior a los veinte centfmetros y 
tenfan forma de un dedal o- 
valado. Tambibn se suponfa 
que al juntarse cada una con 
su compahera brillaba en su 


interior una luz, como si la 
cercania aumentara su po- 
der. 

Luego de recabardatos, Indy 
se dirige a la montaha de 
donde los ancianos le habfan 


dicho que provenia el mal. 
Cuando se acerca a la mon- 
taha escucha unos alaridos 
que lo ponen alerta. Los gri- 
tos proveinen de unos bultos 
que no consigue distinguir 
por la distancia que lo separa 
de ellos. Comprueba horrori- 
zado que esos bultos eran 
jaulas donde hay nihos ence- 
rrados, cuya apariencia ex- 
terna indica malos tratos y 
desnutricion. 

Cuando se acerca a una de 
las jaulas para liberar a uno 
de los pequeno ve como una 
sombra se acerca peligrosa- 
mente a el. Sin dudar un mo- 
menta desenfunda el latigo y 
dandose vuelta lo lanza con- 


tra la sombra que cae desva- 
necida a unos pasos de el. 
La vestimenta utilizada por a- 
quel personaje le recuerda la 
leyenda de los guerreros 
thuggees; surge la posibili- 
dad entonces de que la mis- 


ma sea realidad. 

Con un certero latigazo abre 
la jaula en donde estaba en- 
cerrado el niho, luego vuelve 
adesmayar alguardiaycorre 
montaha arriba. 


Siempre armado con su Ibti- 
go Indy rescata a otros nihos 
y hace frente a los guardias y 
a las serpientes que apare- 
cen. 

Finalmente un niho le cuenta 
lo que sucedia. Mola Ram ha- 
bfa logrado reunirtres de las 
cinco piedras sankara, y con 
ellas reunio nuevamente la 
secta thuggee. Ahora utiliza- 
ba a los nihos para encontrar 
las dos restantes. A los que 
intentaban escapar los en- 
jaulaba para que sirvieran de 
ejemplo atemorizador. 

Este niho, agradecido con 
Indy, le indica la situacion e- 
xacta de la entrada a la mina 
donde los nihos buscaban 
las piedras sankara. 

Indy se dirige a la entrada de 
la mina y se introduce en ella 
en una vagoneta. Los thug- 
gees lo atacan tratando de 
hacerlo descarrilar. Para su 
desgracia la vagoneta tam- 
poco tiene frenos. Tras algu- 
nos contactos con los thug- 
gees llega al final del recorri- 
do, donde encuentra una 
puerta que lleva al templo. 
Para concluir la aventura tie- 
ne que cruzar un rio de lava y 
llegar al altar de los sacrifi- 
cios, donde se encuentran 
las piedras sbnkara. Tiene 
que emplear una vez mas su 
latigo para aprovechar una 
saliente en la roca y salvar el 
obstaculo. 

Luego de tomar el talisman 
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sale del templo perseguido 
por los guerreros y consigue 
retornar la piedra a su lugar 
original. La paz, la felicidad y 
los nihos retornan a la ciu- 
dad. 

El juego es reflejo de la pelf- 
cula. Indy con su Ibtigo debe 
luchar con los guerreros 
thuggees y con Mola Ram. 
Los nihos estbn cautivos y el 
es el encargado de rescatar- 
los. (REAL TIME) 

ALE HOP 

Ale es un munequito en for- 
ma de pelota que tiene que 
transitar por un laberinto en la 
menor cantidad de tiempo 
posible. 

Debe enfrentarse con diver- 
sas tram pas que lo haran sal- 
tar, retroceder y darse toda 
clase de golpes. 

Obviamente hay que tratar 
de evitarlos. Para llegar al fi- 
nal de la etapa, hay que pa- 
sar por encima de unos foto- 
nes. Como recompensa por 
esta accibn tendremos se- 
gundos adicionales que se 
transformaran en puntos 
cuando hayamos logrado 
nuestro objetivo. 

Ale comienzasu viaje muy fe- 
liz pero, a medida que recibe 
los golpes, vemos que se 
vuelve cada vez mas “cara- 
culico”, y con razbn, ya que 
es diffcil evitar el dolor de las 
cafdas. 

El juego consiste en una 
combination de habilidad y 
velocidad. Los grbficos abar- 
can casi toda la pantalla y se 
componen de una parte quie- 
ta y otra que se mueve por 
delante o detrbs de ella. Esto 
se ve sobre todo en el cambio 
de etapa. AIK Ale se pone el 
casco y se sube a una nave 
que lo conduce al comienzo 
de la siguiente etapa. Para 
los programadores hacemos 
notar este efecto, ya que con 
el simple desplazamiento de 
estrellas se consigue un 
buen efecto. 

Atencibn: para comenzar la 
segunda etapa hay que pul- 





sar la barra espaciadora, si 
no el viaje sigue indefinida- 
menle. 

En la segunda etapa, nuevos 
tropiezos esperan a nuestro 
amigo: corrientes electricas, 
cintas sinfin, etcetera. Las 
caras de susto son entonces 
comprensibles. 


Si a todo lo dicho le sumamos 
una pegadiza melodia, pode- 
mos concluir que se trata de 
un juego bien hecho, que to- 
ma ideas de otros programas 
y las perfecciona. Lo reco- 
mendamos a los que quieren 
poner a prueba sus reflejos. 
(REAL TIME) 


NEWLETTERS 

SYSTEIV^^^ 

Este es un utilitario que nos 
permits disponerde jcuaren- 


ta y tres! tipos diferentes de 
letras. 

Podremos imprimir un archi- 
vo en cualquiera de esos ti- 
pos. Para ello es necesario 
seguir los pasos 2, 3 y 4, que 




ASTEROIDS 


Una vfcz. mrts : debemo$ pm 
nemos a) mando de u na nave 
e$paciai. La mtsjtfrtes delen* 
dern bise.tie los' 1 ova* 

soresqu* toman (as llt l||l 

versas formas. Para conss- 
guir $j objetivo tendremos te 
ayuda de la tecnologia de la 
nave, : en especial el radar: 
que nos indicate ia posicibn 
da 

^moelillliltafniantode 

; la nave e$ 4q$rcial,. i^mejor 

tsner siempre una velocidad 
moderada y manlobrar con 
pequeftos toques de acelera- 
ci6n< Al avanzarenunadirec- 
dlfSndonyldne hacerio deyis- 
paidas* para -qye $a pyeda 
frenar rrtpidamente si apare- 
eaajgdn enemigol^i ^ll 
Cuando disparamos a un in- 


vasor no lo destruimos com- 
pletamente, sinoque -lo frag- 
mentamos en trozos mas pe- 
quehos. Per $sa razdn es 
fspardr Ifaf |§§ 
^asenfertnedaabanfeo, pa- 
ra conseguir destrulr tambien 
* nuevos . antes J : ; |||ll||||| 
ia bomba es Un arm a : mdyl 
util que se debe utlflzar con | 

i; das. • 

. Pam acabar contodos los 


teroides dqyna;d^ 

trazarse una to- ! 
ta gue recorca la dpt 8 id.|^ 
q uidando a todos i?s qua ye* 
amos* Reeten despues reco* 
rremos al laberinto a mayor 
i-ya^^^.pueseipaligross- 
*1111 

De vezen cuando noscruza*; 
remos con pelotas que nos 

laiiiiiiiiai* 

: ai'iae'rec^ 

Dbn'|d : :dpci 4 n §||| 1 || f mart §j| 
se eyitavofver acomenzat; y n . 

tapa ayanzada. Il ll pflpil 

: ■ 

se e$ta.|t|glrtio:-se' : apriatan 
lasteclas E, L, iy $♦ seremos 
1 nm unes a fos diferentes ene- 
migos que enffOntamos. Wo 
nos queda mrts que desear- . 
les suerte en la mision. . N ues- 
tro future estrt ensus manos. 
imEAL%iME|:iliiMllll! 



son ios seteos de letras, im- 
presora y archivos, para re- 
dan despurts efectuar la im- 
presion. 

El sistema tambien cuenta 
con una prueba de impresion 
y con la opcion de ver el tipo 
de letra por pantalla o no. En 
algunos casos es convenien- 
te, en otros (letras para titu- 
los) se hace imposible leer en 
la pantalla lo que esta escrito. 
Muchas letras ofrecidas por 
este sistema resultaran co- 
nocidas a los usuarios fanati- 
cos de los videogames, ya 
que son las mismas de los 
juegos. All! estan, por ejem- 
plo, Hunter, Nomad, Rocket, 
Ghost y Beret, entre otras. 
Tambien tenemos tipos de 
letras mas tradicionales co- 
mo italica o de computacidn. 
Se pueden conseguir efectos 
especiales con letras som- 
breadas, locas, de “comics”, 
etcetera. 

La impresion de archivos se 
puede hacer por una impre- 
sora Epson compatible, Sei- 
kosha GP-550 o Gemini. 

Las alternativas que ofre- 
ce este utilitario son lo sufi- 
cientemente interesantes 
como para tenerlo entre 
nuestros programas. (REAL 
TIME) 
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ADAPTADOR 


Quisiera felicftarlos por la 
calidad de los trabajos 
presen tados en la revista y 
aprovechar para hacerles 
unas consultas. £Cbmo 
tendria que hacer si qui- 
siera tener la unidad de 
disco y el modem encendi- 
dos al mismo tiempo? 
^Existen para MSX juegos 
de estrategia en que uno 
es un general y tiene que 
planificar una guerra des- 
plegando ejbrcttos? 

Un Ciltimo pedido: <,P°- 
drian publicar mi direccibn 
para poder cartearme con 
otros usuarios? Desde ya 
muchas gracias y sigan 
adelante. 

Guillermo A. Di Camillo 
Rodriguez Pena 1560 
1663 San Miguel 
Prov. de Buenos Aires 


LOAD MSX 

El problema del modem y 
la unidad de disco se solu- 
ciona con el adaptador de 
Talent APT-950. 

Con respecto a la consulta 
sobre el juego, lamenta- 
blemente no existen jue- 
gos de este tipo disponi- 
bles para MSX. 
Publicamos tu direccibn 
para alentar el intercambio 
de programas e informa- 
cion entre los usuarios. 


AUTO 


Les escribo para que me 
amplien el uso de la sen- 
tence AUTO y NEW, 
ipara qub sirven? 

Carlos Maria Buitrago 
Mar del Plata 


LOAD MSX 

AUTO es un comando que 
genera los numeros de 
llnea automaticamente. La 
forma de usdrlo es AUTO 
n,m donde n es el primer 
numero de Ifnea que que- 


Para comunicarse con nosotros 
deben escribirnos a "Load MSX", 
Parana 720 ,5 q Piso, (1017), 
Capital Federal . 


remos generar, mientras 
que los siguientes nume- 
ros estbn separados por el 
incremento m. Por ejem- 
plo, AUTO 100,10 genera- 
ra numeros de llnea 100, 
110, 120, etcetera. 

NEW es un comando que 
borra el programa BASIC 
residente en la memoria 
de la maquina. Puede ser 
en una llnea de programa, 
pero, como borra este de 
la memoria tan pronto 
como es ejecutado, no 
existen muchas aplicacio- 
nes para el en este modo. 
Los programadores exper- 
tos lo pueden usar junto a 
un condicional para prote- 
ger sus programas. 

PLOTTER 


Mi pregunta es muy corta, 
pero desearla que me la 
aclaren: £qub es un plot- 
ter? 

Daniel Sella 
Santa Rosa - LA PAMPA 

LOAD MSX 

El plotter es un trazador 
de graficos, es decir un 
dispositivo de salida para 
traducir la information de 
la computadora en forma 
grafica sobre papel o un 
soporte similar. 

Existen plotters para todas 


las necesidades de tama- 
fios, exactitud, velocidad y 
hasta color. 


JOYSTICKS 


Me gustarla saber cbmo 
puedo hacer para manejar 
o utilizar el joysticks en 
mis programas. &Hay 
alguna forma sencilla de 
hacerlo? Por lo dembs 
aprovecho para felicftarlos 
por la revika y enviarles 
un gran saludo. 

Marcos Fischer 
Victoria 
Prov. de Buenos Aires 


LOAD MSX 

El comando usado para 
saber en que direccion 
esta manejando o simu- 
lando el joystick es 
STICK(n). n tiene un valor 
entre 0 y 2; 0 indica que la 
instrucci6n leera las teclas 
del cursor, como si fueran 
un joystick; n=1 hace refe- 
renda al joystick conecta- 


do al port 1 y n=2 al 
conectado con el port 2. 

El valor retornado por la 
funcibn depende de la 
direccion en que el usUa- 
rio desplaza el joystick 
que se esta examinando. 
Si lo que utiliza son las 
teclas de cursor, el valor 
retornado indica la combi- 


nacion de teclas pulsadas 
a la vez. En la figura se 
muestra los valores retor- 
nados para la diferentes 
direcciones. 

Si no se pulsa ninguna 
tecla al evaluar la funcibn, 
o si el joystick no se 
mueve, la funcibn da el 
valor 0. 


BASIC vs 
ASSEMBLER 


He hecho varios progra- 
mas en BASIC, y me gus- 
tarfa aprender lenguaje 
ASSEMBLER. iQub ven- 
tajas pueder representar 
el uso de este lenguaje? 

Martin Cabezas 
Bahia Blanca 

LOAD MSX 

Casi todas las computado- 
ras estan equipadas con 
BASIC. La razbn de esto 
es que es un lenguaje 
relativamente sencillo. 
Especialmente el MSX 
BASIC sobresale con su 
gran variedad de coman- 
dos. 

Sin embargo, el ASSEM- 
BLER cuenta con dos 
ventajas respecto at 
BASIC'Ja velocidad de eje- 
cucibn de los programas y 
el ahorro considerable de 
memoria. 

A la hora de hacer los pro- 
gramas hay que elegir que 
lenguaje conviene utilizar 
de acuerdo a la caracterls- 
ticas del mismo. 
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Encienda 
una computadora 

Talent/® 

y sus perifericos. 


MODEM 

• Interfaz asincronica incorporada. 

• Normas BELL yCCITT. 300 y 
1.200 baudios. 

• Incluye en 80 Kb software^ 
de comunicaciones. 

MSX-PLAN 
y MSX-WRITE. 



RS-232 

• Velocidades programables desde 
50 a 19.200 baudios. 

• Procesamiento de 
comunicaciones 
desde Basic. 

• Buffer de 128 
caracteres 
para 

reception 



UNIDAD DE DISCOS FLEXIBLES 

• 5 1/4" de 360 Kb (DS-OD) 

• Velocidad transferencia 
250 Kb/sg. 

• Formato grabacion 
compatible 
MS-DOS 



TECLADO NUMERICO 



► Conexion a Joystick 
» Se integra a todo el 
software que corre 
bajo MSX-DOS 
(Ej. : D-Base II. 
MSX-Plan. etc.) 


MONITOR 

MONOCROMATIC0 12” 

• Anti-reflejo - Fosforo verde. 

• Apto para uso profesional. 

• (80 caracteres x 25 Imeas). 

• Parlante con amplificador 
incorporado. 


Softwa re 

MSX-LOGO 

Desarrollado por Logo 
Computer System Inc. con 
aplicacion de primitivas y 
redaccion del Manual por 
los Ings. Hilario Fernandez 
Long y Horacio Reggini. 



MOUSE 

• Codigo DPM-220, 
accesorio para graficar. 




EXPANSION 80 COLUMNAS 

• Hace posible la utilizacion de 
software estandar CP/M, 
emulando terminal tipo VT-52. 

• Incluye software para 
maneio de video. 


MSX-LPC 

MSX-PLAN 

MSX-WRITE 

Lenguaje de 

Planilla de calculo 

Procesador de 

programacion 

de Microsoft Corp. 

palabra de ASCII 

estructurado y 

(Version para MSX 

Corp. en Castellano. 

en Castellano. 

del Multiplan.) 




Talent 

TecmlogiayTdento^ 0 


MINI-LAN 


EQUIPO CENTRAL 
PROFESOR 


EQUIPO ALUMNO 

• 3 

• 4 

• 5 
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DISKETTERAS 
2 x 360 KB 


EQUIPO ALUMNO 

(RED PARA USO EDUCACIONAL) 

• Comunicacion por Imea compartida 
a 30.000 baudios. 

• Comparte unidades de disco 

e impresoras de consola MSX maestro 
con hasta 10 consolas MSX alumno 

• Carga simultanea de un programa a 
todos los alumnos. / 

• Carga individual de maestro a alumno 

• Salvado de programa alumno a unidad 
de disco maestro. 

• Salida a impresora de maestro del 
listado de programa alumno. en 
spooling. 

• Funciona desde MSX-Basic. 
MSX-Logo o cualquier programa que 
corra desde Basic. 

• Estando activa. se dispone de todo el 

MSX-Basic. 


Producida en San Luis por Telematica S.A. licenciataria exclusiva de Microsoft Corp. y ASCII Corp. para uso de la norma MSX en Argentina. 

6 meses de garantia y mensualmente en su quiosco la revista Load MSX. 

• MSX, MSX-DOS, MSX-PLAN, MS-DOS. son marcas registradas de Microsoft Corporation. MSX WRITE es marca registrada de ASCII Corporation 

• CP/M es marca registrada de Digital Research. MSX-LOGO es marca registrada de Logo Computer Systems Inc Telematica: 1986. Todos los derechos reservados. 
Los datos y especificaciones que figuran en este aviso pueden ser modificados sin previo aviso. 






